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WO 98/18092 PCT/US97/18935 

METHOD AND APPARATUS FOR SCANNING 
AND MANAGING DOCUMENT IMAGES 

CROSS-REFERENCE TO RELATED APPLICATIONS 

The present application claims the benefit of 35 U.S.C. 1 1 1(b) provisional application Serial 

5 No. 60/029,425 filed October 22, 1996, and Serial No. 60/028,985, filed October 22, 1996, entitled 

Method and Apparatus for Scanning and Managing Document Images and Method and Apparatus 

for Computer Instruction Via Digitized Images. Both of these provisional applications are 

incorporated by reference, as if fully set forth herein. 

STATEMENT REGARDING FEDERALLY SPONSORED 

10 RESEARCH OR DEVELOPMENT 

Not applicable. 

BACKGROUND OF THE INVENTION 

Field of the Invention 

The present invention relates to a method and apparatus for a scanning and document 

15 management system using hardware and computer software technology. More particularly the 
present invention relates to the industry catering to users of document management systems and 
instruction of computers via digitized images. 
Description of Related Art 

The document management industry is constantly struggling with problems associated 

20 with efficient and cost-effective management of voluminous documents. The industry lacks 
cost-efficient computerized document management system capable of handling the input of a 
voluminous number of documents into a computer system. Thus one of the biggest stumbling 
blocks with the present technology is the inability to quickly and efficiently input voluminous 
number of documents into an imaging database. Current document management systems 

25 employ a complicated arrangement of user interfaces that require extensive training in order to 
adequately utilize the system. Databases with complicated user interfaces are very expensive to 
implement in an organization. This presents a cost barrier to an organization contemplating 
installation of such a system. 

Another shortcoming of the state of the art is the lack of a self-configuring database. 

30 The problem to be solved is in the design and implementation of a system that allows all 
technical functions to be handled by the program behind the scenes and keep the user interface 
as simple as possible. A simple user interface allows the performance of various different 
tasks behind the scenes by a simple click of a mouse button. Every such step that can be 
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performed behind the scenes cuts down the cost of implementation and use. For example, the 
scanning of documents into the system involves many different tasks. The economic 
advantage of such an improvement over the prior art is the ability to use low-level employees 
to run the system without the need for any specialized expensive training and knowledge. 
5 The following references are hereby incorporated by reference in their entirety: 

(1) Dan Haught & Jim Ferguson, Microsoft Jet Database Engine Programmer's 
Guide , Microsoft Press, 1995 

(2) Michelle A. Poolet & Michael D. Reilly, Access95 Cient/Server Development . 
QUE Corporation, 1996 

10 (3) James D. Murray & William VanRyder, Encyclopedia of Graphics File 

Formats . O'Reilly & Associates, 1994 

(4) Michael Amundsen & Curtis Smith, Teach Yourself Database Programming 
with Visual Basic 4 in 21 Days, Sam's Publishing, 1996 

(5) Zane Thomas Et al, Visual Basic 4 How -To . The Waite Group Press, 1995 

15 

BRIEF SUMMARY OF THE INVENTION 
The present invention relates to a method and apparatus for a scanning and document 
management system using hardware and computer software technology. More particularly, the 
present invention relates to an efficient methodology for scanning, generating instructions to be 

20 performed by a computer based on unique images digitized into the computer, converting to 
editable and searchable text, organizing and separating in electronic storage, labeling, annotating, 
viewing, accessing, manipulating, searching and printing of documents. A document consists of 
one or more pages or sheets containing text and/or graphic symbols. The pages or sheets 
comprising a document may be derived from any source, including scanned pages and captured 

25 video. A document may be in color, in black and white or both. The invention is useful for various 
commercial applications such as for example in a law practice for case litigation support imaging 
database to keep track of a plurality of documents produced during litigation. 

The present invention comprises a scanning and document management system with a 
mechanism for generating instructions to be performed by a computer based on unique images 

30 digitized into the computer, which preferably includes a scanning device electronically coupled to 
software-enabled computer. In the preferred embodiment, the enabling software for scanning, 
converting to editable and searchable text, organizing and separating in electronic storage, labeling, 
annotating, viewing, accessing, manipulating, searching, and printing of documents is resident on 
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the computer. However, as one skilled in the art will appreciate, the software module for 
controlling the scanning device may be loaded as part of the scanning device, or scanning device 
and computer may be loaded with portions of the software module. 

The method and apparatus for generating instructions to be performed by a computer 

5 based on unique images digitized into the computer is facilitated by a unique graphic pattern 
embodied on a physical medium, such as a sheet of paper or video tape. The image is 
electronically digitized into a computer. For example, the image on sheet of paper is digitized 
by scanning the sheet into the computer. Similarly, the image on a video tape may be digitized 
into the computer by processing the analog video signals through a commercially available 

10 hardware add-on board installed in the computer. The add-on board contains electronic 
circuitry capable of converting analog video signals to digital video signals. Commercially 
available presentation software permits viewing of the digital video on the computer monitor. 
Additionally, the software contains functionality to freeze a particular video frame to save as an 
individual digitized image. This image may contain a unique graphic pattern designed to provide 

15 one or more instructions to the computer. A special software module examines and interprets 
the digitized image and thus produces one or more computer instructions. The computer 
executes the generated instructions to produce a desired result. An example of a practical 
application of this invention is in the use of a physical document separator, containing a unique 
graphic pattern (image), to mark the beginning and end of each document in a large volume of 

20 documents scanned collectively into a computer as a single electronic file. A software module is 
used to examine and recognize the document separator images and thus produce and store a 
separate electronic file for each individual document contained in the single larger electronic file 
containing a plurality of documents. This is particularly desirable in various commercial 
applications such as in a law practice case litigation support imaging database where large 

25 volumes of documents are scanned to be electronically managed and used. 

BRIEF DESCRIPTION OF THE DRAWINGS 

A better understanding of the present invention can be obtained when the following 
30 detailed description of the preferred embodiment is considered in conjunction with the 
following drawings, in which: 

Figure 1 is a block diagram of a computer system with attached accessories according 

to the present invention; . 
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Figure 2 is a flowchart depicting the Document Separator logic of the preferred 
embodiment of the present invention; 

Figure 3 is a screen shot showing the PC START screen; 
Figure 4 is a screen shot showing the Main Information Screen (MIS); 
5 Figure 5 is a screen shot of Watermark Professional Editor; 

Figure 6 shows the contents of the CDINFO.DAT file; 
Figure 7 is a screen shot of the Briefing Tool; 
Figure 8 is a screen shot of the Transcript Viewer; 
Figure 9 is a screen shot of the ISYS Query screen; 

10 



15 



20 



Figure 


10 


is 


a screen 


shot 


of the ISYS Search screen; 


Figure 


11 


is 


a screen 


shot 


of the Word Wheel search screen; 


Figure 


12 


is 


a screen 


shot 


of the System Settings screen; 


Figure 


13 


is 


a screen 


shot 


of the Preferences screen; 


Figure 


14 


is 


a screen 


shot 


of the Report Names screen which enables running of 


reports; 












Figure 


15 


is 


a screen 


shot 


of the Report Names screen which enables naming of 


reports; 












Figure 


16 


is 


a screen 


shot 


of the Duplicates Screen; 


Figure 


17 


is 


a screen 


shot 


of the Exhibit List screen; 


Figure 


18 


is 


a screen 


shot 


of the Litigation Bates Number Label Maker screen; 


Figure 


19 


is 


a screen 


shot 


of the Litigation Document Number Label Maker screen; 


Figure 


20 


is 


a screen 


shot 


of the Tempest Image Printer screen; 


Figure 


21 


is 


a screen 


shot 


of Luke's Watermark Scan Utility screen; 



Figure 22 depicts the Document Separator of the preferred embodiment; 
25 Figure 23 is an example of a multi-page TIFF file; 

Figure 24 shows a page divided into sixty-four sections; 

Figure 25 shows further division of the sixty-four sections into four quadrants; 
Figure 26 is an overlay of the 64 sections and 4 quadrants on a document page; 
Figure 27 is an overlay of the 64 section and 4 quadrants on the designated Document 
30 Separator; 

Figure 28 shows documents separated after execution of the Document Separator 
module; 

Figure 29 is a screen shot of the Watermark Exhibit Scan Utility; and 
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Figure 30 is a screen shot of Luke's Automated OCR'ing Utility. 

DETAILED DESCRIPTION OF THE INVENTION 
According to the preferred embodiment, software for the present invention is 

5 developed using Microsoft's Visual Basic programming language in 32-bit mode. The 
software portion of the preferred embodiment uses Microsoft Jet as the database engine. 

Referring first to Figure 1, an illustrative computer system 1-100 which is programmed 
according to the present invention and which operates according to the present invention is 
shown. The computer system 1-100 generally comprises a video display system 1-110, a 

10 keyboard 1-120, and a mouse 1-130. The computer system 1-100 also preferably includes 
various standard components, including at least one central processing unit (CPU), memory, a 
hard drive, a CD-ROM drive, a floppy disk drive, one or more buses, and a power supply. 
The computer system 1-100 of the preferred embodiment, includes a 200 Mhz Pentium MMX 
CPU, 32 megabytes of random access memory (RAM), 4 gigabytes of hard disk space, a 24X 

15 CD-ROM drive, 3.5" 1.4 megabyte floppy disk drive, a 17 inch monitor with 1024x768 
resolution and a similarly equipped video card. In the preferred embodiment, the software 
program is stored on a CD-ROM disk 1-400, floppy disks 1-500 and/or hard drive of the 
computer 1-100 for execution by the CPU. The preferred embodiment of the present 
invention also includes a high-speed scanner 1-200, such as the commercially available Fujitsu 

20 scanner M3093GX, connected to the computer system 1-100. The preferred Fujitsu scanner is 
rated with a scanning speed of 27 pages per minute and is capable of 200 to 400 DPI 
resolution. Alternatively, any industry standard, i.e., TWAIN compliant, scanner with 
scanning speed of 24 to 30 pages per minute and 200 to 400 DPI resolution will satisfy the 
requirements of the preferred embodiment. The preferred embodiment uses the optional sheet 

25 feeder 1-210 of the scanner 1-200 to facilitate high speed scanning of documents into the 
system. The present invention preferably implements a document separator 1-300 placed at 
the end of each document to separately define the beginning and end of each document in a 
stack. A high-speed laser printer 1-600, also preferably is attached to the computer system 1- 
100. The preferred embodiment uses the foregoing components to practice the present 

30 invention, as described below. One skilled in the art will understand, however, that 
modifications or omissions may be made to the list of preferred components without departing 
from the principles of the present invention. 

The preferred embodiment of the present invention uses software containing various 
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programming modules. The software portion of the preferred embodiment of the present 
invention is incorporated in its entirety and attached as the Appendix. Referring now to page 
4 of the Appendix, the PC START module functions as the main menu for the database 
management system. The PC START module is an overlay program that acts as the master 
5 control program to manage a plurality of databases. In the preferred embodiment, each 
document database contains information on a lawsuit or legal case, although the present 
invention has other applications. Referring now to Figure 3, the PC START screen provides 
the user with options to perform various functions on each case database. For example, the 
user can select functions such as Load Case 3-100, Create Case 3-200, Delete Case 3-300, 

10 Repair Case 3-400 and Compress Case 3-500. Furthermore, the user can perform various 
system administration functions by selecting System Admin 3-600, produce labels by selecting 
Make Labels 3-700 or print documents by selecting Print Docs 3-800. The Current Cases list- 
box 3-900 permits the user to select which case database(s) will be impacted by selection of 
one or more of the foregoing functions. 

15 Referring now to pages 2 to 3 of the Appendix, the Load Case module enables the user 

to load the selected case 3-900 into the computer system's memory 1-100. In order to load a 
case, the case must exist in the Current Cases list-box 3-900. The Main Information Screen 
(MIS), Figure 4, is displayed upon selection of the Load Case 3-100 option from the PC 
START screen. (Figure 3). The MIS, Figure 4, contains the document image and document 

20 briefing information. Document briefing is accomplished by the entry of summary text into 
various fields on the MIS such as "To" 4-1 10, "From" 4-120, "CCs" 4-130, "Description" 4- 
140 and "Comments" 4-150. Each of the foregoing briefing fields can be searched while in the 
MIS, Figure 4, by simply double-clicking on the desired field to search. 

Case Issues 4-200 on the MIS, Figure 4, enable the user to designate special 

25 characteristics of the currently displayed document in document thumbnail 4-300. The special 
characteristics are designated by placing a checkmark in the box provided to the right of each 
Case Issue 4-200. The use of Case Issues enables a novice user to produce sophisticated 
reports without any programming on the part of the user. For example, the user can easily 
, produce a report containing all documents in the case database which involve expert 

30 testimony. Pages 15 to 17 of the Appendix show the programming logic to produce the reports 
based on case issues defined and selected by the user. Case Issues 4-200 are user-defined and 
thus are not predetermined by the system. The user defines case issues relevant to a case 
database in the Preferences screen, Figure 13. Referring now to page 41 of the Appendix, the 
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Preferences screen, Figure 13, is selected by clicking on the Settings button 12-200 of the 
System Settings screen, Figure 12. In the Preferences screen, Figure 13, the user performs a 
one-time setup of chosen case issues by entering a case issue in each field of the data entry 
row 13-100. The case issues entered in the data entry, row 13-100 are relationally connected 

5 to the Case Issues 4-200 on the MIS, Figure 4, the report screens, Figures 14 and 15, and all 
associated program code and tables. The Preferences screen, Figure 13, additionally permits 
the user to determine system folders 13-200 in which files related to a particular case database 
will reside on the computer system 1-100. 

Referring now to page 15 of the Appendix, the document thumbnail 4-300 will be 

10 displayed in an individual window if the user double-clicks on the document thumbnail 4-300 
using the mouse 1-130 or selects the Go To button 4-410. Any commercially available 
image-viewing program may be used to display the thumbnail document 4-300. The preferred 
embodiment of the present invention uses commercially available Watermark Professional 
Edition image viewer. While in the image viewer, Figure 5, the document display size may be 

15 changed to suit the user's needs. Furthermore, among other things, the user can print the 
document, annotate the document using text or audio annotations and highlight significant 

portions of the document. 

Referring now to page 53 of the Appendix and Figure 6, the system is capable of 
automatically determining the location of a user-requested document in a multi-volume CD- 
20 ROM document image database. This feature is facilitated by the system's ability 
automatically keep track of the location of all documents as they are scanned into the system, 
even if more than one CD-ROM is required to store the scanned document images. This 
functionality is useful in circumstances where the user's computer system has a single CD- 
ROM drive. The functionality is particularly helpful on laptop computers, which customarily 
25 have a single CD-ROM drive. 

The preferred embodiment maintains two different versions of each document in each 
case database: (1) the scanned image and (2) the full-text OCR version. The scanned image 
version is displayed in thumbnail mode 4-300 and using the image viewer program. The 
scanned image version is the more complete and accurate version of a document because it is 
30 essentially an identical image of the document as it was scanned into the system. While the 
scanned image is ideal for viewing an identical copy of the original document, the scanned 
image lacks the capability to be searched for text. The physical limitation of the scanned 
image version necessitates a full-text version of the document. The full-text version is 
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obtained though the use of optical character recognition (OCR) software to convert the 
scanned image into a text-only file (see discussion below on the OCR process). 

Referring now to pages 26 to 36 of the Appendix, the Briefing Tool, Figure 7, of the 
preferred embodiment enables the user to view the scanned image of the document thumbnail 
5 4-300 by clicking on the Brief button 4-420 on the MIS, Figure 4. The Briefing Tool, Figure 
7, differs from the image viewer, Figure 5, in that the Briefing Tool displays the document 
image at all time while it is open. It is desirable to have the functionality of an image viewer 
that remains on top of all other windows at all times because it permits the user to have both 
the MIS, Figure 4, and Briefing Tool, Figure 7, up on the monitor at the same time to facilitate 

10 efficient briefing of the document in the MIS. This functionality facilitates multiple users 
briefing the same case database at the same time without having the need to have actual 
physical document copies accessible to each briefer. Additionally, the Briefing Tool reduces 
the likelihood of lost physical document copies. As evident from the programming source 
code on page 26 of the Appendix, the Briefing Tool, Figure 7, of the preferred embodiment is 

15 written in TMS/Sequia OCX technology. 

Referring now to pages 13 and 69 to 83 of the Appendix, the Transcript Viewer, 
Figure 8, of the preferred embodiment is an ASCII transcript viewer. It displays an entire 
page of a deposition proceeding at a time. The Transcript Viewer is initiated by clicking on 
the Transcr button 4-440 on the MIS, Figure 4. The Transcript Viewer has the capability to 

20 automatically recognize various transcript types, such as different transcript types received 
from court reporters, and to automatically perform all necessary formatting and loading into 
the system. This feature is particularly desirable because state of the art systems lack this 
feature and thereby require significant labor to format transcripts prior to use on other state of 
the art document management systems. The Transcript Viewer has a Find Word 8-100 

25 feature, which enables the user to search transcripts for particular text strings. Another 
desirable feature of the Transcript Viewer in this preferred embodiment is the ability to use it 
in conjunction with any word processing software, such as Microsoft Word or Corel's 
WordPerfect. The combination use enables the user to highlight any selected portion of a 
transcript, then click on the Copy button 8-200 in the Transcript Viewer. The copied 

30 information can then be pasted into the word processor. Significantly, the Copy 8-200 
function accomplishes much more than the average cut and paste routine. Here, the Copy 8- 
200 function provides additional valuable information relating to the copied transcript text. 
Specifically, the Copy 8-200 function automatically generates document reference including 
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information such as the page and line number of the copied text and the name of the transcript. 
This automatic functionality facilitates faster deposition summaries and easier incorporation of 
deposition quotes in litigation pleadings. Furthermore, the Transcript Viewer allows 
condensed printing of transcripts - up to four pages of transcripts on a single physical printed 
5 page. 

Referring now to pages 14 to 15 of the Appendix, the I SYS Query screen, Figure 9, of 
the preferred embodiment enables the user to perform full-text searches on the OCR version of 
the documents in the case database. The ISYS Query screen, Figure 9, is initiated by clicking 
on the FullText button 4-470 on the MIS, Figure 4. The preferred embodiment of the present 
10 invention uses a commercially available search engine called ISYS, produced by Odyssey 
Development Corporation, for performing the full-text searches. The third party ISYS Search 
screen, Figure 10, is initiated by clicking on the Q button 9-100. The user enters queries in the 
query field 10-100 using search connectors 10-200 as needed. The user may choose to use the 
Word Wheel icon 10-300 to search for the number of occurrences of any given specific word. 
15 The Word Wheel Search screen, Figure 11, is initiated when the user clicks on the Word 
Wheel icon 10-300 on the ISYS Search screen, Figure 10. The user enters the specific word 
to search for in the query field 1 1-100 in Figure 11. The user must select one of the search 
methods 11-200. The self-explanatory choices are "Starts with" and "Sounds like." The 
result of the single-word Word Wheel search is displayed in the result list-box 1 1-300. 
20 Referring now to page 12 of the Appendix, the Add button 4-450 and the Delete 

button 4-460 on the MIS, Figure 4, of the preferred embodiment enable the user to perform 
standard add and delete processing of case database records. 

Referring now to pages 13 and 20 to 20 of the Appendix and pages 42 to 52 of the 
Appendix, the Reports button 4-480 on the MIS, Figure 4, enables the user to print reports as 
25 defined by the user's System Settings, Figure 12, Reports button 12-300 and Rpt Names 
button 12-400. Report Screen, Figure 15, enables the user to name reports. Report Screen, 
Figure 14, enables the user to run reports. 

Referring now to page 13 of the Appendix, the Print Scr button 4-490 on the MIS, 
Figure 4, of the preferred embodiment provides the functionality to produce an image of an 
30 index card that looks exactly like the MIS, Figure 4. 

Referring now to page 37 of the Appendix, the Duplicates button 12-500 on the 
System Settings screen, Figure 12, performs a check for duplicate records in the case 
database. The result of the duplicates check is displayed on the Duplicates Screen, Figure 16. 
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The Duplicates Screen is a grid type screen that includes an entry for every document in the 
database. The duplicates checking routine performs approximately 14 separate checks on 
document numbers. Duplicate records are grouped together based on document numbers. 
Duplicate records are highlighted and deleted by pressing the delete key. The Duplicates 
5 Screen has the added functionality of providing the database administrator the capability to 
perform mass maintenance functions on all records in the database. For example, the 
administrator can globally make changes to all data in a case database. Various reports can 
also be produced using the Duplicates Screen. The reporting capabilities found here, i.e., 
Figure 16, are separate and distinct from other reporting features of the system. All 
10 appearance changes on this screen, Figure 16, such as hiding various columns for printing 
purposes, are temporary, while all data content changes, such as global find and replace, are 
permanent. 

Referring now to page 37 of the Appendix, the Exhibit List button 12-600 on the 
System Settings screen, Figure 12, displays the Exhibit List screen, Figure 17. The Exhibit 

15 List screen, Figure 17, allows the user to modify parts of the data for use in an automatic 
exhibit list which can be printed from the Report Screens, Figures 14 and 15. 

Referring now to pages 14 to 15 of the Appendix, the preferred embodiment of the 
present invention provides the user with the option of selecting the user's choice of full-text 
search engine Figure 9. The system of the preferred embodiment is designed to automatically 

20 detect what particular component is installed on the user's computer system 1-100 and to 
automatically develop necessary links to enable use of the installed components as the user's 
full-text search engine. 

Referring now to pages 1 to 2 of the Appendix, the Create Case module permits the 
user to add a new case database. A case database must be added to the computer system 1- 

25 100 before any of the database actions listed in Figure 3 can be performed on the documents 
and the associated information which comprise a case database. A series of dialogue boxes 
step the user through the process of creating a new database. The procedure for adding a new 
case database is initiated by clicking on the Create Case button 3-200 on the PC START 
screen, Figure 3. 

30 Referring now to page 2 of the Appendix, the Delete Case module permits the user to 

delete a case database from the computer system 1-100. In order to delete a case, the case 
must exist in the Current Cases list-box 3-900 and must be selected by the user. The delete 
case function is password protected to prevent unauthorized deletion of case databases. A 
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series of dialogue boxes step the user through the process of deleting a database. The 
procedure for deleting a case database is initiated by clicking on the Delete Case button 3-300 
on the PC START screen, Figure 3. 

Referring now to pages 3 to 4 of the Appendix, the Repair Case module permits the 
5 user to perform various repair functions on a case database residing on the computer system 1- 
100. In order to repair a case, the case must exist in the Current Cases list -box 3-900 and must 
be selected by the user. The Repair Case module corrects technical problems with the case 
database such as damaged or defective files. It is critical to repair a case when a damaged or 
defective file prevents the system from functioning as intended. A series of dialogue boxes step 
10 the user through the process of repairing a database. The procedure for repairing a case 
database is initiated by clicking on the Repair Case button 3-400 on the PC START screen, 
Figure 3. 

Referring now to page 1 of the Appendix, the Compress Case module permits the user 
to perform various maintenance functions on a case database residing on the computer system 

15 1-100. In order to compress a case, the case must exist in the Current Cases list-box 3-900 
and must be selected by the user. The Compress Case module performs tasks such as 
reorganization and defragmentation of the selected case database. During the normal course 
of use, case databases are added and deleted as needed. However, the system does not 
physically delete a case database and its associated files until the case database is compressed. 

20 Thus, it is desirable to compress a case to free up storage space occupied logically deleted 
files. Compressing a case improves overall performance of the system and allows faster 
processing of information contained in the case database. A series of dialogue boxes step the 
user through the process of compressing a database. The procedure for compressing a case 
database is initiated by clicking on the Compress Case button 3-500 on the PC START screen, 

25 Figure 3. 

Referring now to page 8 and 9 of the Appendix, the Make Labels module allows the 
user to print litigation label numbers based on either the Bates numbers stamped document 
production during litigation or case database system specific Document Number. Figure 18 
demonstrates the preferred embodiment's form for Bates number based label maker and Figure 
30 19 demonstrates the preferred embodiment's form for Document number based label maker. 

Referring now to pages 5 and 84 to 87 of the Appendix, the Print Docs module enables 
the user to perform high-speed document production. The module contains functionality 
which acts as a batch print utility for delayed or scheduled printing of scanned image files on 

-11- 

SUBSTITUTE SHEET (RULE 2S) 



WO 98/18092 PCT/US97/18935 

the high-speed laser printer 1-600. The batch print capability of the Print Docs module is very 
useful as a cost-effective method for automated and scheduled high-speed document 
production. Referring now to Figure 20, the Tempest Image Printer screen enables the user to 
select one or more files to be printed. By simply clicking on check boxes, the system is 
5 capable of batching all files for deferred printing and production of selected documents on 
high-speed network printers. This feature eliminates costs associated with manual production 
of documents by clerks - a process that requires clerks to manually locate and copy selected 
documents for production. Current state of the art technology does not provide batch print 
capability in document management systems. Further performance enhancement may be 

10 realized by installing additional memory chips into the high-speed laser printer 1-600. The 
preferred embodiment of the present invention uses the commercially available Hewlett 
Packard 5Si model. However, the preferred embodiment uses a 5Si model with its standard 
memory upgraded to 32 megabytes. The upgraded 5Si reduces the processing load on the 
computer system's 1-100 resources and effectively improves overall system performance. 

15 The present invention envisions a system whereby the batch print functionality may be easily 
expanded by one skilled in the art to enable multiple printers to simultaneously share the 
burden of printing high-volume batched documents. The accelerated print management 
produces significant time and labor savings. 

Referring now to pages 54 to 60 of the Appendix, Luke's Watermark Scan Utility 

20 module is the mechanism of the preferred embodiment of the present invention by which all 
documents that belong to a case database are scanned into the computer system 1-100. The 
documents are scanned into the computer system 1-100 using the attached high-speed scanner 
1-200. Luke's Watermark Scan Utility screen, Figure 21, is displayed when the scanning utility 
module is initiated. The scanning utility of the preferred embodiment will work with any 

25 industry standard, i.e., TWAIN compliant, scanner. However, the utility can be modified to 
work with specific high-speed scanners. For example, the scan utility of the preferred 
embodiment includes special driver software for the preferred Fujitsu high-speed scanner. 
Scanner setup is accomplished by means of clicking on the Setup button 21-100 in Figure 21. 
The scan utility automatically links the scanned image into the case database and gives it a 

30 document number and bates label number. The automatic linking and setup of the scanned 
images into the case database is highly desirable because it saves significant manual effort that 
would otherwise be required. The Scan button 21-200 initiates scanning of as many 
documents as are in the scanner's 1-200 sheet feeder 1-210. The Single button 21-300 
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initiates scanning of only a single page of a document. The Scan90 button 21-400 makes a 
90-degree orientation adjustment to a document as it is scanned into the system. This 
eliminates the need for the user to adjust the scanned image when viewing it. The Save button 
21-500 permanently stores scanner settings. The scan utility keeps a running tab of all 
5 scanned images that have not yet been processed by the OCR routine, i.e., conversion to full- 
text version of the scanned image. This is desirable because the OCR list generated by the v 
scan utility is used in the OCR process without having to manually determine which scanned 
images need to be OCRed. 

Referring now to pages 94 to 98 of the Appendix, the Document Separator module is 

10 designed to facilitate efficient scanning of large volumes of documents in a continuous stream. 
Documents are typically scanned one document at a time in order to signal to the system the 
end of one document and the start of another. Scanning one document at a time is a laborious 
and time-consuming manual procedure. It is desirable to perform continuous scanning of 
documents because it eliminates the need to manually signal the end of each document 

15 (containing one or more physical pages) and the start of the next document. In the preferred 
embodiment, continuous scanning of documents is achieved by placing a physical document 
separator between each of the documents before scanning. In the preferred embodiment the 
physical document separator, Figure 22, is a physical sheet of paper that contains a 
predetermined unique image pattern. All documents are then continuously scanned and saved as 

20 one multi-page electronic file, such as a TIFF file. Figure 23 shows an example of a continuous 
stream of documents separated by the designated uniquely patterned document separator. The 
document separator module examines and processes each multi-page TIFF file to produce 
individual documents and saves each such document as a separate electronic file. The logic of 
Document Separator, as used in the preferred embodiment, is described in the flowchart in 

25 Figure 2. Specifically, the process begins by loading and displaying each scanned image on the 
computer screen. The width and height of the scanned sheet is determined and the sheet is 
divided into sixty-four (64) sections, Figure 24. The 64 sections are further divided into four 
(4) quadrants, Figure 25. Figure 26 demonstrates overlay of the 64 sections and 4 quadrants on 
a page of a document. Figure 27 demonstrates overlay of the 64 sections and 4 quadrants on a 

30 page that is the designated document separator with the predetermined unique graphic pattern. 
Thereafter, the software module takes one thousand (1000) color samples or pixel values from 
each quadrant. Each color sample is examined and compared against the predetermined unique 
graphic pattern of the designated document separator to determine whether the scanned page is 
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the designated document separator. If the scanned page does not correspond 
identically/substantially to that of the predetermined unique image, (the Document Separator 
template), the scanned page is marked as part of an ongoing document and the process is 
repeated again. However, if the page is the designated document separator, then the end of the 
5 current document is indicated and all scanned pages prior to the document separator are saved as 
a single document in a separate electronic file. Figure 28 displays the end result of the 
foregoing process for the example multi-page TIFF file shown in Figure 23. At the completion 
of the document separator routine, four documents are extracted in Figure 28 from the single 
multi-page TIFF file in Figure 23. This process is repeated until all documents have been 
10 separated in a similar manner. The utility of the present invention lies in part in time savings 
realized through continuous scanning of large volumes of plurality of documents using a high- 
speed scanner. 

Referring now to pages 61 to 66 of the Appendix, the Watermark Exhibit Scan Utility 
module is an automatic trial exhibit maker. It allows exhibit descriptions to be added as the 
15 documents are being scanned. 

Referring now to pages 67 to 68 of the Appendix, Luke's Automated OCR'ing Utility 
module enables the OCR software, such as Omni Page Pro, to run in a batch file mode at 
various scheduled times. It corrects errors and loads the assigned documents to the OCR 
program. 

20 Although the method and apparatus of the present invention has been described in 

connection with the preferred embodiment, it is not intended to be limited to the specific form set 
forth herein, but on the contrary, it is intended to cover such alternatives, modifications, and 
equivalents, as can be reasonably included within the spirit and scope of the invention as defined by 
the appended claims. 

25 PROGRAM CODE 

SEE APPENDIX 1, PAGES 1 - 98 
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r or ml - 1 

1 ^C START 

• Copvriqht (C) 1995 - 1997, Lu. : :e A. Str-ence Michael L. Saltsman 

* Last Modified on 05/9/97 , , al , a ^ 

' All riqhts reserved. No portion of this program code may ~e aice.ea, 

' reproduced, used without v.ritten permission or the autnors . , 

' Compile with 16 bit processor "GetModuleUsage " API does not worjc w^n 

1 WIN3 2 or Windows NT 

Option ExDiicit 

Dim Drive Path As Strir.q, CaseFileName As Strmq « v 

Private Declare Function GetModuleUsage% Lib "Kernel" (ByVal r.toduie*) 

Private Sub cmdComoress Click () _ ^ , r _ e ^ • ^ 

Dim Retval .-.s Integer, CaseToCcmpress As String, Compressed A, String 

t f Security () = 0 Then Exit Sub , „- „o-^ a 

Retval = MsgBoxC'Do you want this case is to be compressea?", z75, "Case Com 

oress " ) 

If Retval = 6 Then „ 
CaseToCompress = Drive Path & List 1 .Text & . man 
Comoressed = Drive ?ath & !: "Temp . n»ac ,: 
ComcactDatabase CaseToCompress , Compressea 
Kill CaseToCompress „ „ 

Name Comoressed As Drive Path & Listl.Text & '.mab 
MsgBox "The case is compressed.", 0, "Compressea Case 

Else 

Exit Sub 
End If_ 
Filel . r,e fresh 
UpdatsList 
Update Hut tons 
End Sub 

Private Sub cmdCreateCase Click () 

If Security () = 0 Then Exit Sub . _ , . _ qt _ _ 

Dim Y As Ir.teqer, Z As Integer, NewCaseName As Strang, OnqinalFile As Str r.q 
Dim Ansr, CurDrv, Msq, TmoPath, HomeDir, ChrName As String, Characters As Spring 
Dim NewFile As String, TestFile As String oiaht 

NewCaseName = InputBox? (" Please type your case name. ±t ^n o- up to -iqnu 
letters long, you may use any letter(s), nuxnoeris), or tne Gcsn - & /or tne un 
derscore ' 1 symbols in your description.", "Case Name , ) 

If NewCaseName = " " Then Exit Sub 

If UCase (NewCaseName) = "POCONTR" Then M * m ~ 
MsqBox "Please use another filename.", 0, "Reserved Case Name. 
Exit Sub 

End I f 

NewCaseName = Left$ (NewCaseName , 3) 
Z = Len (NewCaseName ) 
For Y = 1 To Z 

ChrName = Mid$ {NewCaseName, Y , 1) 

Select Case UCase (ChrName ) tl nM , ( „„„ 

Case "A" "B M "C" "D" , "E", " F" , "G" , "H , I » J , K , Ij , w » ^ 
" O" , "P n , "Q"i "R"', " S" "T" ! "U" ! " V" "W" , "X", "Y", "Z" 

ChrName = ChrName „ ft _ „ „ „ „ „ 

Case "0". " " , "4", . "7", ' 8 11 . " q " . _ 

ChrName = ChrName 
Case Else 

ChrName = " " 
End Select 

Characters = Characters + - ChrName 
Next Y 

NewCaseName = Characters 

Oriqir.alFile = Drive Path & " docontr . mdb'^ 
NewFile = Drive Path & NewCaseName & " . mdb " 
TestFile = Dir (NewFile) 
If TestFile = "" Then 

FileCopy OriginalFile , NewFile 

Else 

MsqBox "That case already exists. " 

Filel . Refresh 

UodateList 
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UpdateButtons 
Exit Cub 
End If 



Set up error handler. 

• Get current drive letter. 



• Make path specification. 
"\ IMAGES" ) 
"\DOCS") 
" \DEPOS ") 



On Error Resume Next 
CurDrv = Left (CurDir, 2) 
HomeDir = CurDir 

TmpPath = UCase (HomeDir & "\" & NewCaseName) 

MkDir TmpPath ' Make new directory. 

TmpPath = UCase (HomeDir & "\" & NewCaseName 

MkDir TmpPath ' Make new directory. 

TmpPath = UCase (HomeDir & "\" 5c NewCaseName 

MkDir TmpPath ' Make new directory. 

TmpPath = UCase (HomeDir & " \" & NewCaseName 

MkDir TmpPath ' Make new directory. 

Filel .Refresh 

UpdateList 

UpdateButtons 
End Sub % tx 

Private Sub cmdDeleteCase Click () 
Dim CurDrv, Msq , TmpPath, FileKill, HomeDir 
Dim Retval As Inteqer, ToDelete As String 
If Security () = 0 Then Exit Sub 

Retval = MsgBox ( "Are you positive that this case is to be deleted? 
ase Deletion") 

If Retval = € Then 

ToDelete = Drive Path & Listl.Text & " .mdb" 
If InStr (Listl.Text, " DOCONTR 11 ) Then Exit Sub 
Kill ToDelete 



caseToDelete 



275, "C 



2) 



Set up error handler. 

1 Get current drive letter. 



Ec Listl . Text 

" \" & caseToDelete 



Ec "\ IMAGES") 



1 V 



caseToDelete u " \DCCS " ) 



On Error Resume Next 
CurDrv = Left (CurDir, 
HomeDir = CurDir 
FileKill = «•*.*« 
caseToDelete = Drive Path 
TmpPath = UCase (HomeDir & 
ChDir TmpPath 
Kill FileKill 
ChDir HomeDir 
RmDir TmpPath 
TmpPath - UCase (UcmeDir « 
ChDir TmpPath 
Kill FileKill 
ChDir HomeDir 
RmDir TmpPath 
TmpPath = UCase (HomeDir & 
ChDir TmpPath 
Kill FileKill 
ChDir HomeDir 
RmDir TmpPath 
TmpPath = UCase (HomeDir & 
RmDir TmpPath 
Else 

Exit Sub 
End If 

MsqBox "Per your request, 
Filel . Refresh 
UpdateList 
UpdateButtons 
End Sub 

Private Sub cmdExit Click () 

End ~ 
End Sub 

Private Sub cmdLoadCase Click () 

Dim L As Inteqer, 2 As Integer, Database As String 
On Error Resume Next 
Database = Listl.Text & ".mdb" 

'a hard map was added to make this work on 97 laptops 
LoadAccess = "Chaser.exe " & "C : \PCHASER\ " & Database 



"\" St caseToDelete & "\DEP0S") 



"\" & caseToDelete) 



the case is deleted. 



0, "Deleting Case" 



LoadAccess As String 
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L = Shell (LoadAccess , 1) 

Forml .WindowState = 1 'Minimized 

While GetModuleUsage (L) > 0 

Z = DoEventsO 
Wend 

Forml .WindowState = 0 
End Sub 

Private Sub cmdMinimize Click () 

Forml . Windows cat. e = 1 
End Sub 

Private Sub CmdMklbi Click () 
Dim X As Inteqer, Z As Integer 
On Error Resume Next 
X = Shell ("LABEL. EXE" , 1) 

Forml .WindowState = 1 'Minimized 
While GetModuleUsage (X) > 0 

Z% = DoEvents ( ) 
Wend 

Forml . WindowState - 0 
End Sub 

Private Sub cmdRename Click () _ ^, A ^ c _ _ nV ,-y.~ n 

Dim Z As Inteqer, Y As Integer, MewCaseName As String, ChrName As Spring, Charac 

ters As Strinq ^ _ . , A c ^^+-„ 

Dim OriqinaiFile As Strinq, NewFile As String, .est-ile as bt-^ng 
If Security () = 0 Then Exit Sub 

Dim dirToChanqe, dirToChanqeTo -rt- r-^ hp nn m piaht 

MewCaseName = InputBoxS (" Please type your case name it can be up uo e.qht 

letters ionq, ycu may use any letter(s), numnerts), or^the aasn - & /or the un 

derscore ' ' symbols in your description . " , "Case Name ( ; 
If NewCaseName = " Then Exit Sub 

If UCase (NewCaseName) = " DOCONTR " Then ltDororifDH r _ Q(3 m_„ „ 

MsqBox -Please use another filename. 0, "Reserved Case Name. 
Exit Sub 

End If 

NewCaseName = Left$ (NewCaseName , 8) 
Z = Len (NewCaseName) 
For Y = 1 To Z 

ChrName = Mid$ (NewCaseName, V, 1) 
Select Case UCase (ChrName ) 
Case "A" , "B" , "C" , "D' 
"0" , , r Q", "R" , "3 M , "T'' , "U 

ChrName = ChrName 
Case "0", "1", "2", "2", "4 

ChrName = ChrName 
Case Else 

ChrName = " " 
End Select 

Characters = Characters * ChrName 
Next Y 

NewCaseName = Characters 

OriqinaiFile = Drive Path & Listl.Text & M .mdb 
NewFile = Drive Path & NewCaseName & " .mdb"^ 
dirTcChanqa - Cv.rDii" 1 "\" - Listl.Text £ \ " 
dirToChanqeTo =*CurDir & "\" & NewCaseName & "\ 
TestFile = Dir (NewFile) 
If TestFile = " " Then 

Name OriqinaiFile As NewFile 

MsqBox dirToChanqe 

MsqBox dirToChanqeTo 

Name dirToChange As dirToChangeTo 

Else 

MsqB^r. "That case already exists." 
Exit Sub 
End If 

Filel .Refresh 
UpdateList 
UpdateButtcns 
End Sub 

Private Sub cmdRepair_Click ( ) 



ncn up ii m(5 n "H" , " 1 " / "U", I\ , J-» , " M" , "N" 



"F" , 


"G" , 


"H" , 


" I " , 


"J" , 


"K" , "L M 


"V" , 


"W" , 


"X" , 


— t 


"Z" 




"5", 


" 6 " , 


it ~i M 


" 8 " , 


"9", 


n ^ n ii H 
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Dim Retval As Inteaer, CaseToRepair As String 
If Security () = 0 Then Exit Sub 

Retvai = MsgBoxC'Do you want this case is to be repaired?", 275, "Case Repai 

r") 

If Retval = 5 Then 

CaseToReoair = Drive Path & List 1. Text & " .mdb" 
RepairDatabase CaseToReoair 

MsgBox "The case is reDaired.", 0, "Repaired Case" 

Else 

Exit Sub 
End If 

Filel . Refresh 
UpdateList 
UpdateButtons 
End Sub 

Private Sub Comma ndl_C lick ( ) 

End 
End Sub 

Private Sub Dirl Chanqe ( ) 

Filel. Path = Dirl . Path 
End Sub 

Private Sub Drivel Chanqe ( ) 

On Error Resume Next 

Dirl . Path = Drivel. Drive 
End Sub 

Private Sub Form Load ( ) 
On Error Resume Next 
* center form 

Me. Left = (Screen. Width - Me. Width) / 2 
Me. Top = ( Screen. Heiqht - Me.Heiqht) / 2 
pctLoqo . Picture = LoadPicture ( "backgrnd.bmp" ) 
UpdateList 

If DirtDrive Path & " DOCONTR . MDB " ) = " " Then cmdCreateCase . Enabled = False 
cmdDeleteCase . Enabled = False 
cmdLoadCase . Enabled = False 
cmdRename . Enabled = False 
cmdRepair . Enabled « False 
cmdComoress . Enabled = False 
cmdSysAdmin . Enabled = False 
End Sub 

Private Sub Listl Click () 

If List!. Text = "DOCONTR" Then 

cmdDeleteCase . Enabled = False 

cmdRename . Enabled = False 
Else 

cmdDeleteCase . Enabled = True 
cmdRename . Enabled = True 
cmdRepair . Enabled = True 
cmdComDress - Enabled = True 
End If 

cmdSvs Admin. Enabled = True 
cmdLoadCase .Enabled - True 
End Sub 

Private Sub Listl DblClickO 

cmdLoadCase . Value - True 

Rem cmdSysAdmin . Value = True 
End Sub 

Private Function Security {) 
Dim Ans 
Security = 0 

Ans = InoutBox ( "Enter your PaDer Chaser Administration Password", "Security") 
If Ans = "Rufus" Or Ans = "rufus" Then 

Security = 1 

Else 

MsqBox "Access Prohibited. Incorrect Password", 16, "Security Check" 
End If 
End Function 

Private Sub UDdateButtons ( ) 

cmdLoadCase . Enabled = False 
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cmdDeleteCase . Enabled = False 
cmdRename . Enabled - Falcc 
cmdRepair . Enabled = False 
cmdCompress . Enabled = False 
cmdSysAdmin . Enabled = False 
End Sub 

Private Sub UpdateListO 

Dim X As Integer, I As Integer, CaseName As String, Test As String 
Listl . Clear 

For I = 0 To Filel . ListCount - 1 
CaseFileName = Filel . List ( I ) 
For X = 1 To 8 . 

Test = Mid$ (CaseFileName, X, 1) 

If Test = " • Then Exit For 

CaseName = CaseName + UCase (Test) 
Next X 

Listl .Addltem CaseName 
CaseName = " " 
Next I 
End Sub 

Private Sub CmdSysAdmin Click () 

Dim X As Integer, 2 As Integer, LoadAccess As String, Database As String 
On Error Resume Next 
Database = Listl. Text & > mdb " 

LoadAccess = "msarn2 00.exe " & Database & " /ini pchaser.ini" 
X = Shell (LoadAccess , 1) 

Forml . WindowState = 1 'Minimized 
While GetModuleUsage (X) > 0 

2% = DoEvents ( ) 
Wend 

Forml . WindowState = 0 
End Sub 

Private Sub PrintDocs_Click ( ) 

Dim X As Integer 

On Error Resume Next 

X « Shell ("TIFFPRINT.EXE" , 1) 

Rem Forml .WindowState = 1 'Minimized 

Rem While GetModuleUsage (X) > 0 

Rem 2 = DoEvents () 

Rem Wend 

Rem Forml . WindowCtate - 0 
End Sub 



\ 
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f rrr.StartUP - 1 

Private Sub Form Click {) 

Tirr.crl . Enabled ^ False 

Load Forml 

Forml . Show 

Unload frmStartUP 
End Sub 

Private Sub Form Load ( ) 
On Error Resume Next 
If App . Prevlnstance Then 

BeeD 

End' 
End If 

f rmStartUP . Show 
Imql . Picture = LoadPicture (" start -up . bmp" ) 
'Imql. Left = (Screen. Width - Imql. Width) / 2 
'Imql. Top = (Screen . Heiqht - Imql . Heiqht ) / 2 
Me. Left = (Screen. Width - Me. Width) / 2 
Me. Top = (Screen. Height - Me. Height) / 2 
End Sub 

Private Sub Timerl Timer () 

Timerl . Enabled = False 

Load Forml 

Forml . Show 

Unload frmStartUP 
End Sub 
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' Label. Maker Copyriqht (C) 1995, 1996 Luke A. Sp«nce 
1 Last modified on 01/02/96 

1 All riqhts reserved. No portion of this cproqram code may be altered, 
1 reproduced or used without written permission of the authors. 
Option Explicit 
Deflnt A-Z 

Dim paddedSuf f ix$ 

Dim paddedPref ix$ 

Dim pref ixLenqth% 

Dim suf f ixLenqth% 

Dim startNumberLength% 

Dim adiusted% 

Dim paqe% 

Dim paqes% 

Dim lineNumber% 

Dim column% 

Dim labelsPrinted% 

Dim skip% 

Dim skipLine% 

Dim startLineNumber% 

Dim startColumnNumber% 

Dim bateStampNumberSc 

Private Sub cmdExit_Click ( ) 

End 
End Sub 

Private Sub cmdHelp Click () 

frmHelp. Left = (Screen . Width - frmHelp . Width) / 2 

frmHelp.Top = ( Screen . Height - frmHelp . Height ) / 2 

Load frmHelp 

frmHelp. Show 1 
End Sub 

Private Sub cmdPrint_Click ( ) 

PrintLabels 
End Sub 

Private Sub DetermineCenter ( ) 

If Len ( txtPref ix) - 0 Then 'Addinq a space to the end of 

paddedPref ix = " " 'the prefix, if it exists, to 

Else 'keep it and the bateStampNumber 

paddedPref ix = txtPrefix & " " 'one space apart on the printout 

End If 

prefixLength = Len (paddedPref ix) 

If Len (txtSuf f ix) = 0 Then 'Addinq a space to the 

paddedSuf fix = "" 'beqinning of the suffix, if 

Else 'it exists, to keep it and 

p?d^~r»Suf f ix - ,r " k txtSuffi;: 'the bateStampNumber one 

End If 'space apart on the printout 

suffixLength = Len (paddedSuf fix) 

If optNoSpacinq = True Then 

startNumberLength = Len ( txtStartNumber ) 
Else 

startNumberLength = 7 
End If 

1 the following determines the center 

adjusted = 8 - ((prefixLength + startNumberLength + suffixLength) \ 2) 
End Sub 

Private Sub Form Load { ) 
cmdPrint . Enabled = False 
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End Sub 

Private Sub optNumOf Labels_Click ( ) 

txtNumRequired = 
End Sub 

Private Sub optNumOf Page s__C lick ( ) 

txtNumRequired = " " 
End Sub 

Private Sub opt Pref ixNO_Click (Value As Integer) 

UpdateLength 
End Sub 

Private Sub opt Pref ixYES_Click (Value As Integer) 

UpdateLength 
End Sub 

Private Sub opt suffixNO_Ci ick (Value As Integer) 

UpdateLength 
End Sub 

Private Sub opt suf f ixYES_Click (Value As Integer) 

UpdateLength 
End Sub 

Private Sub PrintLabels ( ) 

pnlDisplay . Caption = "Printing. . . " 
On Error Resume Next 

If txtStartAtColumn = " Then txtStartAtColumn = 1 
If txtStartAtRow = Then txtStartAtRow = 1 
startLineNumber = txtStartAtRow 
startColumnNumber = txtStartAtColumn 

DetermineCenter 

Printer . FontName = 11 Courier" 
Printer . FontSize « 12 
Printer . FontBold = True 

labelsPrinted = 0 

bateStampNumberfc = txtStartNumber 
pages = lblNumOf Pages + 1 

For paqe = 1 To pages 

For lineNumber = startLineNumber To 20 
If startLineNumber > 1 Then 

For skipLine = 1 To startLineNumber - 1 

Printer . Print * Printer . Print " " : Printer . Print " " 
Next skipLine 
End If 

startLineNumber = 1 

Printer . Print " " : Printer . Print . Printer . Print MM 
For column = startColumnNumber To 4 
startColumnNumber = 1 

If Int (labelsPrinted) Int ( lblNumOf Labels ) Then GoTo Done 

If column = 1 Then skip = adjusted + 2 

If column = 2 Then skip = adjusted + 23 

If column = 3 Then skip = adjusted + 43 

If column = 4 Then skip = adjusted + 63 

Printer . Print Tab (skip) ; 

Printer. Print paddcdPref ix; 

If opt Zeros = True Then 

Printer . Print Format $ (bateStampNumber&, "0000000") ; 
Elself optSpaces = True Then 

Printer . Print Formats (bateStampNumber^, "@@@@@©@") ; 
Else 

Printer. Print Format $ (bateStampNumberfc , »#######") ; 
End If 
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Printer . Print paadedSuf f ix; 

If bateCtampNumberfc = 9999999 Then 

column = 4 

lineNumber = 20 

paqe = pages 
End If 

bateS tampNumber& = bateStampNumber& + 1 
labelsPrinted = labelsPrinted + 1 

skip = skip + 20 ' adds 20 spaces to the 'Tab' 

Next column 
Next lineNumber 
Printer . NewPage 
Next page 
Printer . EndDoc 
Exit Sub 

Done : 

Printer . NewPage 
Printer . EndDoc 

pnlDisplay. Caption = "Print job sent to the printer." 
Exit Sub 

End Sub 

Private Sub txtNumRequired_Change ( ) 
On Error Resume Next 
If optNumOf Paqes = True Then 

lblNumOf Labels - txtNumRequired * 8 0 

lblNumOf Pages = txtNumRequired 
End If 

If optNumOf Labels = True Then 

lblNumOf Labels = txtNumRequired 

lblNumOf Pages = Format$ (( txtNumRequired / 80), "####.##") 
End If 

If txtNumRequired = " " Then 

lblNumOf Labels = 

lblNumOf Pages = " 
End If 

If txtStartNumber <> " " And txtNumRequired <> " " Then 

cmdPrint . Enabled = True 
Else 

cmdPrint . Enabled = False 
End If 
End Sub 

Private Sub txtStartAtColumn_Change ( ) 
On Error Resume Next 

If txtStartAtColumn . Text < 1 Then txtStartAtColumn . Text = " " 
If txtStartAtColumn. Text > 4 Then txtStartAtColumn . Text = " " 
End Sub 

Private Sub txtStartAtRow_Change { ) 
On Error Resume :;ext 

If txtStartAtRow.Text < 1 Then txtStartAtRow . Text = "" 
If txtStartAtRow.Text > 20 Then txtStartAtRow.Text = " " 
End Sub 

Private Sub txtStartNumber Change () 

If txtStartNumber <> " " And txtNumRequired <> " " Then 

cmdPrint . Enabled = True 
Else 

cmdPrint . Enabled = Fal « 
End If 
End Sub 

Private Sub txtStartNumber_KeyPress (KeyAscii As Integer) 
Select Case KeyAscii 
Case 48 To 57 

* do nothing, valid entry 
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Case 8 

' backspace character 
Case Else 

KeyAscii =0 '48 
End Select 
End Sub 



Private Sub UpdateLenqth ( ) 

If optPrefixYES = True Then 

If optSuffixYes = True Then 
1 PREFIX 

txtPref ix . MaxLenqth = 3 
txtPref ix. Lef t = 480 
txtPref ix. Width = 615 
txtPref ix . Visible = True 
lblPref ix.Lef t 
lblPref ix 
•SUFFIX 

txtSuf fix . MaxLenqth = 3 
txtSuff ix.Lef t = 3120 
txtSuf fix. Width = 615 
txtSuf fix. Visible = True 
lblSuff ix.Lef t = 3120 
lblSuf fix. Visible = True 



480 

Visible = True 



* NUMBER 

txtStartNumber . Left 
lblStartNumber . Left 
Else 

•SUFFIX 

txtSuf fix . Visible = 
lblSuf fix. Visible = 
txtSuf fix = 
' PREFIX 

txtPrefix . MaxLenqth 
txtPref ix. Lef t = 



- 1440 
= 1440 



False 
False 



= 7 



600 

txtPref ix. Width = 1300 
txtPref ix. Visible = True 
lblPref ix.Lef t = 600 
lblPref ix. Visible = True 
•NUMBER 

txtStartNumber . Lef t = 2300 
lblStartNumber .Lef t = 2300 
End If 

Elself optSuffixYes Then 

txtPref ix. Visible = False 
lblPref ix. Visible = False 
txtPrefix = " " 
' SUFFIX 

txtSuf fix. MaxLenqth = 7 
txtSuf fix. Lef t = 2300 
txtSuf fix. Width = 1300 
txtSuf fix. Visible = True 
lblSuf f i v . T -ef t - 2? n 0 
lblSuf fix. Visible = True 
1 NUMBER 

txtStartNumber .Lef t = 600 
lblStartNumber .Lef t = 600 
Else 

txtPref ix. Visible = False 
lblPref ix. Visible = False 
txtPrefix = " " 
txtSuf fix. Visible = False 
lblSuf fix. Visible = False 
txtSuf fix = " " 
txtStartNumber . Lef t = 1400 
lblStartNumber . Lef t = 1400 
End If 
End Sub 



SUFFIX & PREFIX 



PREFIX 



SUFFIX 



NONE 
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frmStartUp - 1 

• Copyriqht (C) 1995, 19^., Luke Spence 
1 Last modified on 01/02/96 

Private Sub Form Click () 

Timerl . Enabled = False 

Load Forml 

Forml . Show 

Unload frmStartUp 
End Sub 

Private Sub Form Load ( ) 

frmStartUp . Left = (Screen . Width - frmStartUp . Width) / 2 
frmStartUD.Top - (Screen . Height - frmStartUp . Height ) / 2 
frmStartUp . Show 

Forml. Left = ( Screen . Width - Forml. Width) / 2 
Forml. Top = ( Screen . Height - Forml . Height ) / 2 
Load Forml 
End Sub 

Private- Sub Timerl__Timer ( ) 

Load Forml 

Forml . Show 

Unload frmStartUp 
End Sub 



frmHelp - 1 

1 Copyriqht (C) 1995,1996 Luke Spence 
1 Last modified on 01/02/96 

Option Explicit 

Private Sub cmdReturn_Click ( ) 

Unload frmHelp 
End Sub 
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' Paper Chaser 

' Copyriqht {C) 109Z - 1337, Michael L. Saltsman 

'All riqhts reserved. No portion of this program code may be altered, used or re 
produced 

•without written permission of the author. 
Option Explicit 
' declare API functions 

Private Declare Function GetDriveType Lib ,, kerne!32" Alias "GetDriveTypeA" (ByVa 

I nDrive As Strinq) As Long 

' declare API constants 

Const DRIVE CDROM = 5 

Const DRIVE FIXED = 3 

Const DRIVE RAMDISK = 6 

Const DRIVE REMOTE = 4 

Const DRIVE_REMOVABLE = 2 

Public DriveType As Strinq 
Public CurrentDisk As Variant 
Public DiskNum As Variant 
Dim CDROM As Strinq 
Public MyCriteria As String 
Dim ImaqePath As String 
Public NoC As Variant 
Dim StrBuffer As Strinq * 250 
Private Sub CmdAdd Click () 
Datal . Recordset . AddNew 
Datal . Recordset . Update 
Datal . Recordset . MoveLast 
Text34.Text = "Q.TIF" 
End Sub 

Private Sub CmdBrief Click () 

Dim Temp As Strinq, R As Double, Test As String 
Label34 .DataField = "ImaqePath" 
Temp = Label34 .Caption & Text34.Text 
Test = Label34 .Caption & Text34.Text 
If Dir(Test) <> " M Then 

R = Shell ("DOCIV.EXE " & Temp, 1) 

Exit Sub 

Else 

MsqBox "Imaqe not available. Wrong disk. Use Go To to re-enter document num 
ber to find disk number." 

End If 
End Sub 

Private Sub CmdDelete Click {) 

Dim Msq As String, Title As String, Style As Variant, Response As Variant, MyStr 
inq As Strinq 

Msq = "Delete this entry?" ' Define messaqe. 

Style = vbYesNo + vbQuestion + vbDef aultButton2 1 Define buttons. 

Title = "Delete Entry Confirmation" 1 Define title. 

Response = MsqBox (Msq, Style , Title) 

If Response = vbYes Then 1 User chose Yes. 

My strinq = " Ycc " • Perform some c.cti-r*. 

Datal . Recordset . Delete 

Datal . Refresh 

Data2 . Refresh 

Exit Sub 
Else ' User chose No. 

MyString = "No" ' Perform some action. 

Beep 

Exit Sub 
End If 
End Sub 

Private Sub CmdEnd_Click ( ) 
End 

End Sub 

Private Sub CmdGoto Click () 
Dim MyCriteria As Strinq 

FrmSearch.Labell .Caption = "Enter the Document # to find:" 
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qs FieldNameS = " [Doc Number] " 
Load GotoDoc 
GotoDoc . Show 
End Sub 

Private Sub CmdPrintScreen_Click ( ) 
Dim Msq 

On Error GoTo ErrorHandler 

Forml . PrintForm 

Printer . EndDoc 

Exit Sub 

ErrorHandler: 

Msq = "The form can't be printed." 

MsqBox Msq ' Display message. 

Resume Next 
End Sub 

Private Sub CmdRpts Click () 

Dim LoadAccess As Strinq, X As Variant 

Me. Left = (Screen. Width - Me. Width) / 2 

Me. Top = (screen. Height - Me. Height) / 2 

Rem Load FrmRpt 

Rem FrmRpt . Show 

Rem ProqramPath.DataField = "DbPath" 
Rem MsqBox qs FileNameS 

Rem REMOVE THIS HARD CODE „ * . „ 

LoadAccess = "C:\PCHASER\msarn2 00.exe " & " C:\PCHASER\ n &= gs_FileName$ & /mi 
pchaser . ini " 

X = Shell (LoadAccess , 1) 
End Sub 

Private Sub CmdTrans Click () 
Dim R As Double, Temp As Strinq 
Label34 .DataField = "ImaqePath" 
Temp = Label34 .Caption £= Text34.Text 
R = Shell ( " SUMCLONE.EXE " & Temp, 1) 
End Sub 

Private Sub Form Load ( ) 

Dim MyDb As Strinq, MyDrive As Strinq, Z As Inteqer 
Rem PLACED HERE BECUASE OF PATH PROBLEMS ON CDROM LOAD UP 
On Error Resume Next 
' hourqlass cursor 
Mou&crointer = 11 

Me. Left = (Screen. Width - Me. Width) / 2 

Me. Top = (Screen. Heiqht - Me. Height) / 2 

qs FileName$ = Command$ 

Rem MsqBox Command$ 

Datal . DatabaseName = qs FileName$ 

Data2 .DatabaseName = qs FileNameS 

Data3 .DatabaseName = qs FileName$ 

Datal .RecordSource = "Select * from [Document Infolorder by [Doc Number]" 

Data2 . RecordSource = "Select * from [Preferences] " 

Data3 .RecordSource = "Select * from [Disk Names]" 

Textl .DataField = "Doc Number" 

Tfjvt; 2 m DataField - "Dec Date" 

Texti . DataField = "Beq Bates #" 

Text4 .DataField = "End Bates #" 

Texts . DataField = "To" 

Text6 . DataField = "From" 

Text7 .DataField = "CC's" 

Text8 . DataField - "Description" 

Text9 . DataField = "Comments" 

TextlO .DataField = "Taq 1" 

Text 11 .Dat^ield - "Taq 2" 

Text 12 .DataField = "Taq 3" 

Text 13 .DataField = "Taq 4" 

Text 14 . DataField = "Taq 5" 

TextlS .DataField = "Tag 6" 

TextlS .DataField = "Taq 7" 

Textl7 .DataField = "Taq 8" 

Textl8 .DataField = "Tag 9" 
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Textl9 .DataField = 
Text20 . DataFicld = 
Text21 . DataField = 
Text22 .DataField = 
Text23 . DataField = 
Text24 .DataField = 
Text25 . DataField = 
Text26 . DataField = 
Text27 . DataField = 
Text28 . DataField = 
Text29 . DataField = 
Text30 .DataField = 
Text31 .DataField = 
Text32 .DataField = 
Text33 .DataField = 
Text34 .DataField = 
Text35 .DataField = 
Text35 .DataField = 
Text36 . DataField = 
Text37 .DataField = 
LabellO . DataField = 
Label 11 .DataField 
Labell2 .DataField = 
Labell3 .DataField = 
Labell4 .DataField 
LabellS .DataField = 
Labell6 .DataField : 
Labell7 .DataField 
Labell8 .DataField ■■ 
Labell9 .DataField 
Label20 .DataField 
Label21 .DataField 
Label22 .DataField 
Label23 .DataField 
Label24 .DataField 
Label25 .DataField 
Label26 .DataField 
Label27 .DataField 
Label28 .DataField 
Label29 .DataField 
Label3C .DataField 
Label31 .DataField 
Label32 .DataField 
Label33 .DataField 
Label34 .DataField 
ImaqeManl . AutoScal 
ImaqeManl . ScaleMet 
Label35 .DataField 



"Taq 


10" 


" Taq 


11" 


" Taq 


12" 


" Taq 


13" 


" Taq 


14" 


"Taq 


15" 


"Taq 


16" 


"Taq 


17" 


"Taq 


18" 


"Taq 


19" 


"Taq 


20" 


"Taq 


21" 


"Taq 


22" 


"Taq 


23" 


"Taq 


24" 



'Entry Info" 
" DbPath" 
"Case Name" 



Exhibit 


#" 


Ext " 




"Field 


1" 


"Field 


2" 


"Field 


3" 


"Field 


4" 


"Field 


5" 


"Field 


6" 


"Field 


7" 


"Field 


8" 


"Field 


9" 


"Field 


10" 


"Field 


11" 


"Field 


12" 


"Field 


13 " 


"Field 


14" 


"Field 


15" 


"Field 


16" 


"Field 


17" 


"Field 


18" 


"Field 


19" 


"Field 


20" 


"Field 


21" 


"Field 


22" 


"Field 


23" 


"Field 


24 " 



" ImagePath" 
e = 1 
hod = 3 
= "DbPath" 



' normal cursor 
MousePointer = 0 
^nd S-.'b 

Private Sub Form_Paint() 
Datal .Refresh 
End Sub 

Private Sub Form_Query Unload (Cancel As Integer, UnloadMode As Integer) 
End 

End Sub 



Private Sub Full text Click () 
Rem Remove hard coding for Isys 
Dim ISYS$, XSc 
Rem X% 

Label34 .DataField = "IsysPath" 
ISYS = Label34 .Caution 
ISYS = "C:\ISYS\IQW.EXE /Z /D=" 
Label34 .DataField = "ImagePath" 



+ ISYS 
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X * Shell (ISYS, 1) 
End Sub 

Private Sub ImaqeManl DblClickO 

Rem remove hard codinq for watermark 

Dim Temp As Strinq, R As Double 

Label34 . DataField = "ImaqePath" 

Temp = Label34 .Caption & Text34.Text 

R = Shell ("C:\WMPRO\WMPRO. EXE " & Temp, 3) 

End Sub 

Private Sub ImaqeManl GotFocusO 

Datal . Recordset . MoveNext : Datal . Recordset .Move Previous 
End Sub 

Private Sub Textl DblClickO 
qs FieldNameS = " [Doc Number] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub TextlO DblClickO 
qs FieldNameS = " [Tag i] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Textll DblClickO 
qs FieldName$ = " [Tag 2] 11 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Textl2 DblClickO 
qs FieldName$ = "[Tag 3] n 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Textl3 DblClickO 
qs FieldNameS = '* (Tag 4] " 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Textl4 DblClickO 
qs FieldNameS = " [Tag 5] " 
Load FrmSearch 
FrmSearch. Show 
End Sub 

Private Sub Text 15 DblClickO 
qs FieldNameS = " [Tag 6] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub TextlS DblClickO 
qs FieldNameS = "[Tag 7]" 
Load FrmSearch 
FrmSearch. Show 
End Sub 

qs~FieldName$~ = W " [Tag^T 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub TextlS DblClickO 
qs FieldNameS = "[Tag 9]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Textl9 DblClickO 
qs FieldNameS = " [Tag 10] « 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text2 DblClickO 
gs FieldNameS = M [Doc Date] " 
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Load FrmSearch 
Ft^r.SGS. rc h . Show 
End Sub 

Private Sub Text20 DblClickO 
qs FieldName$ = " (Tag 11] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text21 DblClickO 
qs FieldNameS = " [Tag 12 ] n 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text22 DblClickO 
qs FieldNameS = "[Tag 133" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text 2 3 DblClickO 
qs FieldNameS = "[Tag 14]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text24 DblClickO 
qs FieldNameS = " [Tag 15] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text25 DblClickO 
qs FieldNameS = " [Tag 16] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text26 DblClickO 
qs FieldNameS = " [Tag 17] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text27 DblClickO 
qs FieldNameS = " [Tag 18] " 
Lead FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text28 DblClickO 
qs FieldNameS = K [Tag 19] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text2 9 DblClickO 
qs FieldNameS = " [Tag 20] " 
Load FrmSearch 
FrmSearch . Show 
F.nd Sub 

Private Sub Text3 DblClickO 
qs FieldNameS = " [Beg Bates #] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text3 0 DblClickO 
qs FieldNameS = " [Tag 21] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text31 DblClickO 
qs FieldNameS = " [Tag 22] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text32_DblClick ( ) 
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qs FieldNameS = " (Tag 23 J " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text33 DblClickO 
qs FieldNameS = "[Tag 24]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text34 Chanqe ( ) 

Dim MvDb As Strinq, MyDrive As Strinq, Z As Integer, FileLoc As Strinq 

Dim Test As Strinq, 3eqDocNum As Variant, EndDocNum As Variant, MyPath As String 

Dim DocToFind As Variant, CdPresent As Strinq, MyName As Strinq 

Dim RemovePrefix As String, X As Double, Msg As String, OldPath As String, Inser 
tDisk As Inteqer 
Label36 .Caption = " " 

Z = Len (Label3 5 . Caption) - 4: MyDb = Left (Label3 5 . Caption , Z) 
MyDrive = Left (MyDb, 3) 

On Error GoTo ErrorHandler 
LoadDriveType 

If Text34.Text = " Then Label 3 6 . Caption = "File not Found. Check Disk" 
ImaqeManl . Picture = Label34 . Caption & Text34.Text 
If Text34.Text - "Q.TIF" Then 

ImaqeManl . Picture = Label 34 . Caption & "Q.TIF" 

Label36 . Caption = "Picture file not available." 

Exit Sub 

End If 

If DriveType - "CD-ROM Drive" Then 

X = Len (Label3S . Caption) : FileLoc = Left {Label35 .Caption, X - 4) 

Open FileLoc & " \ CD INFO . DAT M For Input As 1# 

DocToFind = Text34 .Text 

Input #1, CDROM, RemovePrefix 

MyName = Mid (DocToFind, RemovePrefix): X - Len (DocToFind) 
MyName = Left (MyName, X - 5) : DocToFind = Val (MyName) 

Do While Not EOF(l) 

Input 21, DiskNum, 3eqDocNum, EndDocNum 

If DccTcFind >- 3egDocNum And DocToFind EndDccNurr. Then E^it Do 
Loop 

Close =1 

I f Inser tDisk = 0 Then 

Me. Caption = "Paper Chaser - Disk # " & DiskNum & " in CD ROM." 
Else 

Me. Caption = "Paper Chaser - Insert disk #" & DiskNum & " in CD ROM." 
End If 
End If 

If DriveType = "Network Drive" Or DriveType = "Hard Drive" Then 

Me. Caption = "Paper Chaser - " ^ Label34 . Caption & Text34.Text 

Rr.H Tf 

Rem Me. Caption = "Paper Chaser - Document Info " & Label34 . Caption & Text34.Te 
xt 

Exit Sub 

ErrorHandler : 

Select Case Err . Number 

Case 53 ' "File Not Found" 

Label3 6 . Caption = "File net found." 

ImaaeManl . Picture = MyDrive & "PChaserV ^ "Q.TIF" 
InsertDisk « 1 
Resume Next 

Case 76 1 "No Disk" error. 

Label36 . Caption = "No Disk in CDROM. Insert a Disk." 
InsertDisk = 1 
Resume Next 

Case 68 1 "Device not available" 
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Label3 6 . Caption = "No Disk in CDROM . Insert a Disk." 

ImaqeManl . Picture- - KyDrive £ "cChaserV & "Q.TIF" 

InsertDisk = 1 

On Error Resume Next 

Case 32504 * "File Not Found" 

Label 3 6 .Caption - "File not found." 

ImaqeManl . Picture = MyDrive & "PChaser\" & "Q.TIF" 
InsertDisk = 1 
Resume Next 
Case Else 

Rem On Error Resume Next 

MsqBox Err. Number & "Load Error Number" 

Resume Next 
End Select 
Resume 
End Sub 

Private Sub Text34 DblClickO 
qs FieldName$ = " (Encry Info] :: 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text36 DblClickO 
qs FieldName$ = " [Exhibit #] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text37 DblClickO 
qs FieldName$ = " [Ext] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text4 DblClickO 

qs FieldName$ = " [End Bates #] " 

Load FrmSearch 

FrmSearch . Show 

End Sub 

Private Sub Texts DblClickO 
qs FieldName$ = " [to] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text 6 DblClickO 
qs FieldName$ = " [from] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text7 DblClickO 
qs FieldName$ = " [CC's]" 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Priv.^^ Sub Text 3 Db^^lickO 
qs FieldName$ = " [Description] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Private Sub Text 9 DblClickO 
qs FieldName$ = " [Comments] " 
Load FrmSearch 
FrmSearch . Show 
End Sub 

Function FileExists (Filename As String) As Boolean 
Dim TermoAttr As Integer 

J? f^en (Filename) - 0) Or ( InStr (Filename , ■■*'•) > 0) Or ( InStr (Filename , "?") > 
0) Then 

FileExists = False 

Exit Function 

End If 
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Oia Error GoTo ErrorFi leExist 
TempAttr = GetAttr ( Filename ) 

FileExists = ( (TempAttr And vbDirectory) = 0) 
GoTo ExitFileExist 

ErrorFileExist : 
FileExists = False 
Resume ExitFileExist 

.ExitFileExist: 
On Error GoTo 0 
End Function 

Private Sub LoadDriveType < ) 

Dim MyDrive As Strinq 

On Error GoTo ErrorHandler 

' get drive type of currently selected drive 

MyDrive = Left (Label34 . Caption, 1) : Drivel. Drive = MyDrive 
SelecL Case GetDriveType iLJCase (Left (Drivel . Drive , 1) ) & " : \ " ) 
Case DRIVE REMOVABLE 

DriveType = "Floppy Drive" 
Case DRIVE FIXED 

DriveType = "Hard Drive" 
Case DRIVE REMOTE 

DriveType = "Network Drive" 
Case DRIVE CDROM 

DriveType = 11 CD-ROM Drive" 
Case DRIVE RAMDISK 

DriveType = " RAM Disk" 
Case 0 

DriveType - "Could not determine drive type." 
Case 1 

DriveType = "Drive does not exist." 
Case Else 

DriveType = "Unknown or Illegal Drive" 
End Select 
' MsqBox DriveType 
Exit Sub 

ErrorHandler : 

Select Case Err. Number 

Case 6 8 'No Drive Found - Occurs when no CD ROM is in Drive 
Me. Caption = "Paper Chaser - No Disk in Drive." 

Case Else 

Rem MsgBox Err. Number & "Drive Type Error Number" 
End Select 
End Sub 

Private Sub Drivel Chanqe ( ) 

' load the drive type label when the drive combo 

' changes 
LoadDriveType 
End Sub 
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FrmRpt - 1 

Option Explicit 

Private Sub BitRpt Click {) 

Dim LoadAccess As Strinq, X As Variant 

ProqramPath. DataField = "DbPath" 

LoadAccess = "msarr.200 . exe " & ProgramPath . Caption & 11 /ini pchaser.ini" 

X = Shell (LoadAccess, 1) 
End Sub 

Private Sub CmdLoad ClickO 
On Error Resume Next 
Dim Tempcase$ ( ReportFileName$ 
Tempcase = UCase (List 1 . Text ) 
Select Case Tempcase 

Case UCase (Forml . LabellO . Caption) 

ReportFileNameS = " RPT01 . RPT" 
Case UCase (Forml . Labelll . Caption) 

ReportFileName$ = "RPT02 . RPT" 
Case UCase (Forml . Labell2 . Caption) 

ReportFileNameS = " RPT03 . RPT 11 
Case UCase (Forml . Label 13 . Caption) 

ReportFileName$ = U RPT04.RPT" 
Case UCase (Forml . Labell4 . Caption) 

ReportFileNameS = "RPT05.RPT" 
Case UCase (Forml . LabellS . Caption) 

ReportFileNameS = "RPT06.RPT" 
Case UCase (Forml . Label 16 . Caption) 

ReportFileName$ = "RPT07.RPT" 
Case UCase (Forml . Labell7 . Caption) 

ReportFileName$ = "RPT0 8 . RPT " 
Case UCase (Forml . Labell8 . Caption) 

ReportFileName$ = "RPT09 . RPT" 
Case UCase (Forml . Labell9 . Caption) 

ReportFileName$ = "RPT10.RPT" 
Case UCase (Forml . Label20 . Caption) 

ReportFileName$ = "RPTll.RPT" ' 
Case UCase (Forml . Label21 . Caption) 

ReportFileName$ = "RPT12 . RPT" 
Case UCase (Forml . Label22 . Caption) 

ReportFileNameS = "RPT13 . RPT" 
Case UCase (Forml . Label23 . Caption) 

ReportFileNameS = "RPT14 . RPT" 
Case UCase (Fcr~l . Label 2 4 . Caption) 

ReportFileNameS = "RPT15 . RPT" 
Case UCase (Forml . Label25 .Caption) 

ReportFileNameS = "RPT16.RPT" 
Case UCase (Forml . Label2 6 .Caption) 

ReportFileNameS = "RPT17 . RPT" 
Case UCase (Forml . Label 2 7 . Caption) 

ReportFileNameS = " RPT18 .RPT" 
Case UCase (Forml . Label28 . Caption) 

ReportFileNameS = "RPT19 . RPT" 
Case UCase (Forml . Label29 . Caption) 

ReportFileNameS = "RPT20 . RPT" 
rase !Tf^ qe • Fo^i T.^bel 3 0 . Caption) 

ReportFileNameS = "RPT21 . RPT" ' 
Case UCase (Forml . Label3 1 . Caption) 

ReportFileNameS = "RPT22 . RPT" 
Case UCase (Forml . Label32 . Caption) 

ReportFileNameS = "RPT23.RPT" 
Case UCase (Forml . Label33 . Caption) 

ReportFileNameS = "RPT24 . RPT" 
Case Else 

ReportFileNameS = List 1. Text & " . rpt " 
End Select: 

CrystalReportl .DataFiles (0) = App.Path & "\" & qs FileNameS 
CrystalReport 1 . ReportFileName = App.Path & "\" & ReportFileName 

On Error GoTo ErrorHandler 
FrmRpt . Hide 
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FrmRpt - 2 

Forml . Refresh 
CrystalReportl .Action « 1 

Exit Sub 
ErrorHandler : 

MsqBox CrystalReportl .LastErrorString 
Exit Sub 
End Sub 

Private Sub Command2_Click ( ) 
Unload FrmRpt 
End Sub 

Public Sub GetReportNames ( ) 
Ll Dim" I^As^Integer ( X As Integer, Report FileName As String, ReportName As Strin 

q Dim currentCharacter As String 
Filel.Path = App . Path 
For 1=0 To Filel .ListCount - 1 
ReportFileName = Filel . List ( I ) 

• The followinq code looks at the £iles in Filel 

• and strips out ".rpt" from it 
For X = 1 TO 64 

currentCharacterS = Mid$ (ReportFileName , X, 1) 
If currentCharacter$ = " . " Then Exit For 
ReportName$ = ReoortName$ + currentCharacterS 
Next X 

' the followinq hunk of code should looks at the report name 
' if it's on of the 24 standard reports, it uses the name 

• assigned it by the attorney, other wise it uses the name 
' as it appears in the directory 

Select Case UCase (ReportName$ ) 
Case UCase ("RPT01" ) 
Listl .Addltem Forml .Label 10 .Caption 

Case UCase ( " RPT02 " ) 
Listl .Addltem Forml . Labelll . Caption 

Case UCase ("RFT03") 
Listl .Addltem Forml . Labell2 .Caption 

Case UCase ( ,, RPT04"> 
Listl .Addltem Forml . Labell3 . Caption 

Case UCase ( " RPT05 " ) 
Listl .Addltem Forml . Lal^ell4 . Caption 

Case UCase ( "RPTOfi" ) 
Listl .Addltem Forml . Label 15 . Caption 

Case UCase ( "RPT07 " ) 
Listl .Addltem Forml . Labell6 . Caption 

Case UCase ( "RPT08 " ) 
Listl .Addltem Forml . Labell7 . Caption 

Case UCase ( "RPT09 " ) 
Listl .Addltem Forml . Labell8 . Caption 

Case UCase ("RPTIO") 
Listl .Addltem Forml . Labell9 . Caption 

Case UCase ("RPTll" > 
Listl .Addltem Forml . Lafccl20 . C-pticr. 

Case UCase ("RPT12") 
Listl .Addltem Forml . Label21 . Caption 

Case UCase ("RPTIS" ) 
List 1 . Addl t em Forml . Label2 2 . Caption 

Case UCase ( "RPT14 " ) 
Listl .Addltem Forml . Label23 . Caption 

Case UCase ( " RPT15 " ) 
Listl .Addltem Forml . Label24 . Caption 

Case UCase ( "RPT16 " ) 
Listl .Addltem Forml . Label2 5 . Caption 

Case UCase ( "RPT17" ) 
Listl .Addltem Forml . Label26 . Caption 

Case UCase ( " RPT1 8 " ) 
Listl .Addltem Forml . Label27 . Caption 

Case UCase ("RPT19 M ) 
Listl .Addltem Forml . Label2 8 . Caption 
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FrmRpt 



3 



Case UCase ("RPT20") 
Lis 1 1 . Addl t cm Fcml . Label 2 9 . CaDtion 

Case UCase { "RPT21 M ) 
Listl .Addltem Form! . Label3C . CaDtion 

Case UCase ( "RPT22 " ) 
Listl .Addltem Forml . Label 31 . CaDtion 

Case UCase { » RPT2 3 " ) 
Listl .Addltem Fonr.l .Label32 .Caption 

Case UCase ("RPT24" ) 
Listl .Addltem Forml . Label33 . Caption 

Case Else 
Listl .Addltem ReportNameS 
End Select 

ReportName$ * " " ■ reset reportName$ to nothing 



End Sub 

Private Sub Form Load ( ) 

On Error GoTo ErrorHandler 

Me. Left = ( Screen . Width - Mc. Width) / 2: Me. Too = ( Screen . Height - Me. Height) / 
2 

Datal .DatabaseName = App.Path & "\" & gs_FileName$ 
ProqramPath. DataField = "DbPath" 

Datal .RecordSource = "Select * from [Preferences]" 

Call GetReportNames 

Exit Sub 

ErrorHandler : 

Select Case Err. Number 



Case 0 

Resume Next 
Case Else 

Rem On Error Resume Next 

MsqBox Err. Number & "Load Error Number" 

Resume Next 
End Select 



Next 



I 



End Sub 

Private Sub Listl DblClickO 
CmdLoad . Value = True 
End Sub 
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FrmSearch - 1 

Option Explicit 

Private Sub CmdCancel_Click { ) 

Unload FrmSearch 

End Sub 

Private Sub CmdFirst Click () 
Dim MyCriteria As String 
Forml .Datal . Recordset .MoveFirst 
Forml .Data2 .Recordset .MoveFirst 

MyCriteria = gs FieldName$ & " like " & "'*" & txtSearch. Text & ,, * ,H 
Forml .Datal .Recordset . FindFirst MyCriteria 
If Forml .Datal .Recordset .NoMatch Then 

MsqBox "Term not found in search. " 

End If 
End Sub 

Private Sub CmdNext Click () 
Dim MyCriteria As Strinq 

MyCriteria = qs FieldName$ & " like " & M 1 * M & txtSearch . Text & 
Forml . Datal . Recordset . FindNext MyCriteria 
If Forml .Datal .Recordset .NoMatch Then 

MsqBox "Term not found in search." 

End If 
End Sub 

Private Sub Form LoadO 

Me. Left = (Screen . Width - Me. Width) / 2 
Me. Top = (Screen. Height - Me. Height) / 2 
End Sub 
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GotoDoc - 1 

Option Explicit 

Private Sub CmdCancel — Click ( ) 

Unload GotoDoc 

End Sub 

Private Sub CmdFirst Click () 

Dim MyCriteria As String 

Rem Forml . Dat al . Recordset . MoveFirst 

MyCriteria = qs FieldNameS & " like " & "«*« & txtSearch . Text & »**« 
Forml . Datal . Recordset . FindFirst MyCriteria 
If Forml . Datal . Recordset .NoMatch Then 

MsgBox "Term not found in search. M 

End If 
End Sub 

Private Sub Form Load() 

Me. Left = (Screen. Width - Me. Width) / 2 
Me. Top = (Screen. Height - Me. Height) / 2 
End Sub 
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Modulel - 1 

Public qs FieldName$ 

Public qs FileName$ 

Publ'ic CurrentDisk As Variant 

Public DiskNum As Variant 

Public MyCriteria As String 
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frmlmage Viewer - 1 

'Document Imaga Viewer - Doc I . V . 
•Copyright (c) 1996, Tempest Software Inc, 
ODtion Explicit 
Def Int A-Z 

Private Declare Function WritePrivateProf ileStrinq Lib "Kernel" (ByVal lpApplica 

tionName As String, IpKeyName As Any, IpString As Any, ByVal lplFileName As Stri 

nq) As Integer 

Dim slmgFileName As String 

Dim iNumOfPages As Integer 

Dim iCurrentPage As Integer 

Dim iQualityFactor As Integer 

'General Constants 

Const SCROLL BAR = 2 50 

Const PROGRAM NAME = "Doc I.V." 

•VisualBasic Constants 

Const OFN HIDEREADONLY = 

Const PD PRINTSETUP - &H4 0& 

♦ TK3 Constants 

Const VX FULLIMAGE = 0 

Const VX ZOOMIN = 1 

Const VX ZOOMRECT = 3 

Const VX STARTPRINT = 5 

Const VX PRINT - 6 

Const VX ENDPRINT « 7 

Const VX MARKHOLLOW = 2 

Const VX MAGNIFIER « 3 

Const VX NONE « 0 

Const VX HORIZONTAL = 1 

Const VX VERTICAL = 2 

Const VX BOTH = 3 

Const VX BESTFIT » 1 

Const VX FULLWIDTH * 2 

Const VX FULLHEIGHT « 3 

1 TMS Error Constants 

Const ERR BADFILENAME = 20000 

Const ERR BADPROPVALUE = 2 0001 

Const ERR NO I MAGE = 2 0002 

Const ERR NOPRINTER = 20003 

Const ERR GETPALETTE = 20004 

Const ERR INTERRCR = 2 0005 

Const ERR BADDC = 2 0 006 

Const ERR BAD WINDOW = 20500 

Const ERR CLIPBOARD ERROR =2 0501 

Const ERR BITMAP ERROR = 20502 

Const ERR NO PRINTER « 20503 

Const ERR NO GRAPHICS = 20504 

Const ERR PRINT ABORTED = 2 0505 

Const ERR BAD PAGENUM = 20506 

Const ERR PRINT BUSY = 20507 

Const ERR BAD PERCENT = 2 0508 

Const ERR NO RECT = 20509 

ron° *" ~?_p. CANT ZOOM - "* 0 - 1 0 

Const ERR CANT SCROLL -*20511 

Const ERR NO MEMORY « 2 0512 

Const ERR_BAD_PARM = 20513 

Private Sub exi t Program ( ) 

Call pref erencesSave 

Unload f rmlmageViewer 
End Sub 

Private Sub fileOpenO 
On Error Resume Next 

f rmlmageViewer . vdVBX .Visible = False 

f rmlmageViewer .vdVBX. filename * sImgFileName$ 

iNumOf Pages % = vdVBX. Pages 

iCurrentPage% = vdVBX.Page + 1 

HScrolll .Value = 0 
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frml mage Viewer - 2 

Select Case iNumOfPages% 
Case 0 

HScrolll .Visible = False 

MsqBox "The specified file name is" & Chr(10) & "either not a valid file n 
ame," & Chr(lO) & "or is not in an accepted image format.", 0, "Error loading fi 
le. " 

frmlmaqeViewer .Caption = PROGRAM_NAME 
Exit Sub 
Case 1 

HScrolll -Visible = False 
* f rmlmageViewer . Caption - f rmlmageViewer . CMDialogl . FileTitle 
Case Else 

HScrolll. Visible = True , 

frmlmaqeViewer .Caption = frmlmaqeViewer . CMDialogl . FileTitle & " Page & 
iCurrentPage% & " of " & iNumOfPages% 
End Select 
Call menuEnabled 
Call imageRefresh 
End Sub 

Private Sub Form Load ( ) 
Call pref erencesLoad 
Call menuDisabled 

frmlmaqeViewer .Caption = PROGRAM NAME 
frmlmaqeViewer .vdVBX. Visible = False 
f rmlmaqeViewer . vdVBX. MaqnifyRatio = 2 
frmlmaqeViewer .vdVBX. ZoomRatio = 50 
vdVBX.RiqhtMouseStyle « VX MAGNIFIER 
vdVBX. LeftMouseStyle = VX_MARKHOLLOW 
HScrolll. Visible = False 
If qFileName$ <> Then 

sImqFileName$ = gFileName$ 
Call fileOpen 
End If 
End Sub 

Private Sub Form Resize () 
On Error Resume Next 

frmlmaqeViewer .vdVBX. Visible « False 

vdVBX. Width = frmlmaqeViewer . ScaleWidth 

vdVEX . Ilciqht = f rmlmageViewer . ScaleHeighL - vdVBX.Top 

HScrolll -Left = 20 

HScrolll. Top = f rmlmageViewer .ScaleHeight - HScrolll . Height - 217 
Call imageRefresh 
End Sub 

Private Sub Form Unload (Cancel As Integer) 

Call exitProgram 
End Sub 

Private Sub HScrolll Change ( ) 
On Error Resume Next 
HScrolll . :-:=*.x = iNumOfPagcc - 1 
HScrolll i*Min = 0 

frmlmaqeViewer .vdVBX. Visible = False 
frmlmaqeViewer .vdVBX . Paqe = HScrolll .Value 
iCurrentPaqe = HScrolll . Value + 1 

frmlmaqeViewer . Caption = frmlmaqeViewer . CMDialogl . FileTitle & " Page " & iC 
urrentPaqe% & " of " & iNumOfPages% 

Call imageRefresh 
End Sub 

Private Sub imageRefresh ( ) 
On Error Resume Next 

If mnuPref erencesFitHeiqht . Checked = True Then 

frmlmaqeViewer .vdVBX. ImaqeScaleHeiqht = vdVBX. Height - SCROLL^ BAR 
Elself mnuPref erencesFitWidth . Checked = True Then 

f rmlmageViewer .vdVBX. ImageScaleWidth « vdVBX. Width - SCROLL_BAR 
End If 
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f rmlmageViewer - 3 

f rmlmaqeViewer . vdVBX . ImaqeScaleLef t = 0 
f rmlmaqeViewer . vdVBX . InaqeScalcTcp ^ 0 
f rmlmaqeViewer .vdVBX .Visible = True 
Call menuPaqeCheck 
f rmlmageViewer . vdVBX . Set Focus 
End Sub 

Private Sub menuDisabled ( ) 

mnuFilePrint . Enabled = False 

mnuPaqeNext . Enabled = False 

mnuPaqePrevious . Enabled = False 

mnuPaqeFirst . Enabled = False 

mnuPaqeLast .Enabled = False 

mnuPaqeGoto . Enabled = False 

mnuZoomZoomln . Enabled = False 

mnuZoomZoomOut . Enabled = False 

mnuEff ectsRotateC . Enabled = False 

mnuEf f ectsRotateCC . Enabled = False 

mnuEf feet s Rot ate I maqeFI.i.p . Enabled - False 

mnuEff ectsRotateReset . Enabled = False 

mnuEf f ectsMirrorH. Enabled = False 

mnuEff ectsMirrorV. Enabled = False 

mnuEff ectsMirrorBoth . Enabled = False 

mnuEff ectsMirrorReset . Enabled = False 

mnuPref erences InvertColors . Enabled = False 
End Sub 

Private Sub menuEnabled ( ) 

mnuFilePrint .Enabled = True 

mnuPaqeNext .Enabled = True 

mnuPaqePrevious . Enabled = True 

mnuPaqeFirst . Enabled = True 

mnuPaqeLast .Enabled = True 

mnuPaqeGoto. Enabled = True 

mnuZoomZoomln. Enabled = True 

mnuZoomZoomOut . Enabled = True 

mnuEff ectsRotateC . Enabled = True 

mnuEff ectsRotateCC. Enabled = True 

mnuEff ectsRotatelmageFlip . Enabled = True 

mnuEff ectsRotateReset . Enabled = True 

mnuEff GctsMirrcrll- Enabled - True 

mnuEff ectsMirrorV. Enabled = True 

mnuEff ectsMirrorBoth. Enabled = True 

mnuEff ectsMirrorReset . Enabled = True 

mnuPref erencesInvertColors . Enabled = True 
End Sub 

Private Sub menuPaqeCheck ( ) 

If vdVBX.Paqes = 0 Then Exit Sub 
1 check for paqe numbers if only one page disable all pageroutines 
If vdVBX.Paqes = 1 Then 

mnuPaqeNext . Enabled = False 

"unv.PfVysPrsvi pus , Enabl cd — Ful 2: 3 

mnuPaqeFirst . Enabled = False 

mnuPaqeLast . Enabled = False 

mnuPaqeGoto. Enabled = False 

Exit Sub 
End If 
•check for 1st paqe 

If HScrolll .Value = 0 Then 

mnuPaqePrevious . Enabled = False 

mnuPaqeFirst . Enabled = False 

mnuPaqeNext . Enabled = True 

mnuPaqeLast . Enabled = True 
Elself HScrolll .Value = (iNumOf Pages - 1) Then 

mnuPaqePrevious . Enabled = True 

mnuPaqeFirst . Enabled = True 

mnuPaqeNext . Enabled = False 

mnuPageLast . Enabled = False 
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f rmlmageViewer - 4 
Else 

Pciq 3 Previous . Enabled - True 
mnuPaqeFirst .Enabled = True 
mnuPaqeNext . Enabled = True 
mnuPageLast . Enabled = True 

End If 
End Sub 

Private Sub mnuEf f ectsMirrorBoth Click () 
Select Case f rmlmageViewer .vdVBX . Mirror 
Case VX NONE 

frmlmaqeViewer .vdVBX . Mirror = VX_BOTH 
Case VX BOTH 

frmlmaqe Viewer .vdVBX. Mirror = VX_NONE 
Case VX VERTICAL 

f rmlmageViewer .vdVBX. Mirror = VX_HORIZONTAL 
Case VX HORIZONTAL 

frmlmaqeViewer . vdVBX. Mirror = VX_VERTICAL 
End Select 
imaqeRef resh 
End Sub 

Private Sub mnuEf f ectsMirrorH Click () 

Select Case f rmlmageViewer .vdVBX .Mirror 
Case VX NONE 

frmlmaqe Viewer .vdVBX. Mirror = VX_HORIZONTAL 
Case VX HORIZONTAL 

frmlmaqeViewer . vdVBX .Mirror = VX_NONE 
Case VX BOTH 

frmlmaqeViewer .vdVBX. Mirror = VX_VERTICAL 
Case VX VERTICAL 

f rmlmageViewer .vdVBX. Mirror = VX_BOTH 
End Select 
imaqeRef resh 
End Sub 

Private Sub mnuEf f ectsMirrorReset Click () 
frmlmaqeViewer . vdVBX . Mirror = VX_NONE 
imaqeRef resh 

End Sub 

Private Sub mnuEf f ectsMirrorV Click () 

Select Case f rmlmageViewer . vdVBX . Mirror 
Case VX NONE 

frmlmaqeViewer .vdVBX. Mirror = VX VERTICAL 
Case VX VERTICAL " 

f rmlmageViewer . vdVBX. Mirror = VX NONE 
Case VX BOTH 

frmlmaqeViewer . vdVBX . Mirror = VX HORIZONTAL 
Case VX HORIZONTAL 

frmlmaqeViewer. vdVBX. Mirror = VX_B0TH 
End Select 
i**" 1 nqeRe f r ^ »r* 
End Sub 

Private Sub mnuEf f ectsRotateC Click () 

Select Case f rmlmageViewer .vdVBX . Rotation 
Case 0 

f rmlmageViewer . vdVBX . Rotation = 90 
Case 90 

f rmlmageViewer. vdVBX. Rotation = 180 
Case ICO 

f rmlmageViewer .vdVBX. Rotation = 270 
Case 270 

f rmlmaqeViewer . vdVBX. Rotation = 0 
End Select 
imaqeRef resh 
End Sub 
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f rmlmageViewer - 5 _ _ _ 

Private Sub mnuEf f ectsRotateCC ClickO " ' * 

Select Case f rmlmage Viewer . vdVBX . Rotation 
Case 0 

f rmlmage Viewer . vdVBX . Rotation = 270 
Case 90 

f rmlmageViewer .vdVBX . Rotation = 0 
Case 180 

f rmlmageViewer . vdVBX . Rotation = 90 
Case 270 

frmlmaqeViewer .vdVBX . Rotation « 180 
End Select 
imaqeRefresh 
End Sub 

Private Sub mnuEf f ectsRotatelmageFlip ClickO 
Select Case f rmlmageViewer . vdVBX . Rotation 
Case 0 

f rmlmageViewer . vdVBX . Rotation = 180 
Case 90 

f rmlmageViewer .vdVBX. Rotation » 270 
Case 180 

f rmlmageViewer . vdVBX . Rotation = 0 
Case 270 

frmlmaqeViewer .vdVBX . Rotation = 90 
End Select 
imaqeRefresh 
End Sub 

Private Sub mnuEf f ectsRotateReset ClickO 

frmlmaqeViewer .vdVBX. Rotation = 0 

imaqeRefresh 
End Sub 

Private Sub mnuFileExit_Click O 

Call exit Program 
End Sub 

Private Sub mnuFileOpen ClickO 
On Error GoTo loadError 
frmlmaqeViewer .vdVBX. Visible = False 
frmlmaqeViewer . HScrol 11 .Visible = False 
frmlmaqeViewer . Caption = PROGRAM NAME 
frmlmaqeViewer . CMDialoql . CancelError = True 
frmlmaqeViewer . CMDialoql . DialoqTitle = "Open Image File" 
frmlmaqeViewer. CMDialoql. Flaqs = OFN HIDEREADONLY 

frmlmaqeViewer. CMDialoql. Filter = "All Images ( * . * ) | * . bmp ; * . ipg ; * . pcx ; * . tif 
JPEG files <*.ipg)| *.ipg|PCX files (*.pcx> |*.pcx | TIFF files (*.tif) | *.tif 
Windows Bitmap (*.bmp) I*. bmp " 

frmlmaqeViewer . CMDialoql . Filterlndex = 1 

frmlmaqeViewer . CMDialoql .Action = 1 

sImqFileName$ = frmlmaqeViewer . CMDialoql . filename 

frmlmaqeVi ewer .vdVBX. Quality *= iQualityFactor% 

ri 1} 9 > 2 eOpen 

Exit Sub 
loadError : 

frmlmaqeVi ewer . Caption = PROGRAM_NAME 

Exit Sub 
End Sub 

Private Sub mnuFilePrint ClickO 

vdVBX. PrintStyle = VX FULL I MAGE 

vdVBX. Action « VX STARTPRINT 

vdVBX.Action = VX PRINT 

vdVBX. Action = VX_ENDPRINT 
End Sub 

Private Sub mnuFilePrintSetup_Click 0 
Dim CancelFlaq As Integer" 
CancelFlag = True 
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frmlmage Viewer - 6 

On Error Resume Next 
CMDialoql . CancelError = True 
CMDiaioql . Flaqs = PD_PRINTSETUP 
CMDialoql .Action = 5 
If (Err = 0) Then 

CancelFlag - False 
End If 

If (CancelFlag = True) Then Exit Sub 
End Sub 

Private Sub mnuHelpAbout__Click ( ) 

Load f rmAbout 

f rmAbout . Show 1 

f rmlmageViewer . Show 
End Sub 

Private Sub mnuPaqeFirs t_Cl ick ( ) 

HScroill .Value = 0 
End Sub 

Private Sub mnuPaqeGoto_Click ( ) 

Load frmGotoPaqe 

f rmGotoPage . Show 1 
End Sub 

Private Sub mnuPaaeLast Click () 

KScroill .Value = vdVBX. Pages - 1 
End Sub 

Private Sub mnuPaqeNext Click 0 

HScroill. Value = HScroill . Value + 1 
End Sub 

Private Sub mnuPaaePrevious Click () 

HScroill .Value = HScroill . Value - 1 
End Sub 

Private Sub mnuPref erencesFi tHeiqht Click 0 
mnuPref erencesFitHeiqht . Checked = True 
mnuPref erencesFitWidth . Checked = False 
Call imageRe fresh 

End Sub 

Private Sub mnuPref erencesFitWidth Click () 
mnuPref erencesFitHeiqht . Checked = False 
mnuPref erencesFitWidth . Checked = True 
Call imageRe fresh 

End Sub 

Private Sub mnuPref erencesImageQualityHigh_Click ( ) 
lQual ityFactor % =10 

mnuPref erencesImaqeQualityLow . Checked = False 
mnu?r rt f or ence s J rr.aqeQu n 1 i r yMedinrr. . Che eked — Fulcc 
mnuPref erencesImaqeQual ityHiqh . Checked = True 
vdVBX. Quality = iQualityFactor% 
End Sub 

Private Sub mnuPref erenceslTTiageQualityLow_Cl ick ( ) 
iQualityFactor% = 0 

mnuPref erencesImaqeQualityLow. Checked = True 
mnuPref erencesImaqeQuali tyMedium. Checked = False 
mnuPref erencesImaqeQua lityHiqh . Checked = False 
vdVBX. Quality = iQualityFactor% 
End Sub 

Private Sub mnuPref erencesImageQua!ityMedium_Click ( ) 
iQualityFactor% = 5 

mnuPref erencesImaqeQualityLow. Checked = False 
mnuPref erencesImageQuali tyMedium. Checked = True 
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f rml mag eVi ewer - 7 

mnuPref erencesImaqeQuai ityHiqh . Checked = False 
vdYEX . Qua 1 i zy ■-- i Qua i i z y a c c or % 
End Sub 

Private Sub mnuPref erencesInvertColors Click () 
If frmlmaqeViewer.vdVEX. Invert = True Then 

f rmlmaqeViewer .vdVEX. Invert = False ^ . , . 

f rmlmageViewer .mnuPref erencesInvertColors . CnecKea - taise 
Else 

f rmlrr.aqeViewer .vdVBX . Invert = True . _ 

f rmlmageViewer . mnuPref erencesInvertColors . CnecKea - i rue 

End If 
End Sub 

Private Sub mnuZoomZoomIn_Click ( ) 

Call zoomln 
End Sub 



S"^u mnuZoomZoomOut Click () 



:Pref erencesImaqeQualityMedium . Checked = Fa 
i?ref erencesImaqeQualityHich. Checked = False 



Call zoomOut 
End Sub 

Private Sub oref erencesLcad ( ) 

f rmlmaqeViev/er . Left = cFormLeftfic 
f rmlmaqeViewer . Tod - qFormTot>& 
f rmlmaqeViewer . Width = qFormWidth& 
f rmlmaaeViewer . Heiqht = aFormHeiqht& 
If InStr <qFitWidth$ , "TRUE" ) Then 

mnuPre ferencesFi tHeiqht . Checked = False 

mnuPref erencesFitWidth . Checked = True 
Else 

mnuPref erencesFitHeiqht . Checked = True 
mnuPref erencesFitVJidth . Checked = False 
End If 

Select Case gQual i tyFactor % 
Case 0 

mnuPref erencesImaqeQualityLow . Checkea = True 
n^uP^* 0 fovonrpcTmanpni'p'i - rvM^n ium . Checked = False 
mnui 

iQuaiityFactor% = 0 

o t: _ 

mnuPref erencesImaqeQuali tyLow . Checkea = raise 
mnuPref erencesImaqeQuali tyMedium. Checked = True 
mnuPref erencesImaqeQualityHich . Checked = False 
iQuaiityFactor% = 5 
Case 10 

mnuPref erencesImaqeQualityLow . Checked = False 
mnuPref erencesImaqeQualityMedium. Checked = False 
mnuPref erencesImaqeQualityHigh. Checked = True 
iQuai ityFactor% = 10 
End Select 
End Sub 

Private Sub pref erencesSave ( ) 
'On Error Resume Next 
Dim iRet% 
Dim sSectionS 
Dim sEntry$ 
Dim sValue$ 
Dim sFileName$ 

If Right (App . Path, 1) = \ Then 

^FileNarae$ = App . Path ^ "dociv.ini" 
Else 

sFileName$ = App. Path U " \ " & "dociv.ini" 
End If 

sSectionS = "Form Position" 
sEntry$ = "Form Width" 

sValue$ = Str (f rmlmaqeViewer .Width) 9 , ^ ^ _ „ . _ 

iRet = WritePrivatePrcf ileString (ByVal sSection, ByVal sEntry, ByVal sValue, 
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frmlrr.age Viewer - 8 

ByVal sFileName ) 

sSntryS = "Form Heiqht" 

sValue$ = Str ( f rmlmaqeViewer . Heignt ) . p _ tion rtyVal sEntry, ByVal sValue, 

iRet = Write?rivateProfiieStrmg(ByVal sSection, ..yvcax a "* iL ^' * 

ByVal sFileName) 

sEntry$ = "Form Left" 

sVa!ue$ = Str ( f rmlmaqeViewer . Le^t > cCprMnn 3v Val sEmry, 3yVal sValue, 

iRet = WritePrivateProfileStrmg (ByVal sSection, ^yvai s-r.^ , 3/ 

ByVal sFileName) 

sEntry$ = "Form Top" 

sValueS = str(frmIm ^ qe Y 1 ?"l;^:^m v VAi eQec-^cn BvVal sEr.try, BvVal sValue, 

iRet = WritePrivateProrileStrmg (ByVai sbec >n, ~y i 

ByVal sFileName) 

sSec::cn$ = "Preferences" 

sEncryS = "Fit Width" . ^ _ -v*«« 

If mnu^ref erencesFi tWidth . Checxed = -rue .nen 

s Value $ = "TRUE" 
S sValue$ = "FALSE" 

iSt:" WritePrivateProfileStrmg (ByVal sSection, ByVal sEntry, ByVal sValue, 

ByVai sFileName) 

sEntry$ = "Imaqe Quality" 

sValueS = Str ( iQuai i tyFac- cr%) ^c^r^on -vVal <=~-trv, ByVal sValue , 
iRet = WritePrivateProf ileString (ByVal sSect.cn, -yvc*± -y 

ByVal sFileName) 
End Sub 

Private Sub vdVBX Status (Index As Integer, Status As Integer, Value As Long) 
On Error Resume Next 

If frmlmaaeViewer.vdVSX. Marked = True Then ^ 
frmlmageViewer . vdVBX . Action = VX__ZOOKR-^- 
End I f 
End Sub 

Private Sub zoomln ( ) 

On Error Resume Next 

f rrnlmaae Viewer . vdVBX . ZoomRat 10 = 5 0 
f rmlrnageViewer . vdVBX. Action = VX_ZOOMIN 
End Sub 

Private Sub zoomOut ( ) 
On Error Resume Next 

f rmlmaaeViewer . vdVBX . ZoomRat 10 = 5 0 

frmlmaaeViewer.vdVBX. Action = 2 1 VX_z J OOMOU. 
End Sub 



BNSDOCID: <WO 981B092A2 I > 



-47- 



WO 98/18092 



PCT/US97/I8935 



frmln-ro - l 

Option Explicit: 
Deflnt A- 2 

Private Declare Function GetPrivateProf ileStrinq Lib "Kernel" (ByVal IpApplicati 
onName As Strinq, IpKeyName As Any, ByVai IcDefauit As Scrir.c, ByVal lpReturnedS 
tring As String, ByVal -Size As Integer, ByVal IpFileName As String) As Integer 

Private Sub displayText ( ) 
FontSize = 100 

f rmlntrc.CurrentX = 22: frmlntro . Current Y = 52 
ForeColcr = QBColor(8) 
Print "Doc I . V. " 

frmlntro. CurrentX = 20: frmlntro . Current Y = 50 
ForeColcr = QBColor (15) 
Print "Ooc I . V . " 

frmlntrc . CurrentX = 21: frmlntro . Current Y = 51 
ForeColor = QBColor (7) 
Print "Doc I . V. " 

FontSize - 18 

frmlntro. CurrentX = 72: frmlntro - Current Y = 202 
ForeColor = QBColor (8) 

Print "The Multiple Format Imaae Viewer" 

i rm Intro . CurrentX = 70: frmlntro . Current Y = 200 

ForeColor = QBColor (15) 

Print "The Multiple Format Imaqe Viewer" 
rrmlntro . CurrentX = 71: frmlntro . Current Y = 201 
ForeColcr = QBColor (7) 

Print "The Multiple Format Image Viewer" 

frmlntro. CurrentX = 17: frmlntro . Current Y = 302 
ForeColor = QBColor (8) 

Print "Doc IV, Cooyriqht (c) 1996, Temoest Software" 
frmlntro . CurrentX = 15: frmlntro . Current Y = 300 
ForeColor = QBColor (15) 

Print "Doc IV, Copyriqht { c) 1996, Terroest Software" 
frmlntro . CurrentX = 16: frmlntro . Current Y = 301 
ForeColor = QBColor (7) 

Print "Doc IV, Ccovriaht ( c) 1996, Tempest Software" 
End Sub 

Trivate Sub exi tSplashScreen i ) 

f rmlmaqeViewer . Show 

frmlntro . Hide 

Unload frmlntro 
End Sub 

Private Sub Form Click () 

exi tSplashScreen 
End Sub 

Private Sub Form KeyPress (KeyAscii As Ir.teaer) 

exi tSplashScreen 
End = »\b 

Private Sub Form Load ( ) 
On Error Resume Next 

frmlntro. Left = (Screen . Width - frmlntro . Width) / 2 

frmlntro. Top = (Screen . Keiaht' - frmlntro . Keiaht ) / 2 

Call oref erencesCheck 

qFileNameS = Commands 

Load f rnlmaaeViewer 

If qFileNameS <> " " Then 

Load f rmlmaqeViewer 

Call exi tSplashScreen 
End If 
End Sub 

Private Sub Form Paint () 
Call displayText 
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frmlntro - 2 
End Sub 

Private Sub oref erencesCheck ( ) 
Dim sFileNameS 
Dim sSectionS 
Dim sKevName$ 
Dim sDefaultS 
Dim sRecurn$ 
Dim iRetumSi ze % 
Dim iReturn% 

If Riqhc (Adp. Path, 1) = "\" Then 

sFileNameS = App.Path U "dociv.ini" 
Else 

sFileNameS = Aop.Path & " \ " U "dociv . im " 
End If 

sSecticnS = "Form Position" 
sReturnS = Space$(10) 
i Re turnS ize% = 10 
sKeylCau.iS - ,: rorn*i Ileiqr-t*' 

sDefaultS = St r ( Screen - Keiaht ) . 

iReturn% = GetPrivateProf ileStrmq (ByVal sSectionS, 3yVai sKeyNameS , sDefault 
S, sReturr.S , iReturnSize% , ByVal sFileNameS) 
qFormHeiqhtfic = Val (sReturnS) 
sKeyNameS = "Form Width" 

sDefaultS = Str { Screen . Width) , ^ _ 

iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS , 3yVal sKeyNameS, sDerauxt 
$ , sReturnS, iReturnSize% , ByVal sFileNameS) 
qFormWidthSc = Val ( sReturnS ) 
sKeyNameS = "Form Left" 
sDe faults = " 0 " 

iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS, ByVal =KeyName$ , sDefault 
$, sReturr.S, iReturnSize% , By Val sFileNameS) 
qFormLeftSc = Val ( sReturnS ) 
sKeyNameS = "Form Too" 
sDefaultS = "0" 

iReturn% = GetPrivateProf i leStrinq (ByVal sSectionS, ByVal sKeyNameS , sDefauit 
$ , sReturr.S , iReturnSi ze% , ByVal sFileNameS) 
qFormTcr>& = Val (sReturr.S) " 
sSectionS = "Preferences" 
sKeyNameS = "Fit Width" 
sDef aultO — "TRUE" 

iReturn%"= GetPrivateProf i leStrinq (ByVal sSectionS, ByVal sKeyNameS , sDefault 
$, sReturr.S , iReturnSize% , ByVal sFileNameS) 
qFitWidthS = sReturnS 
sKeyNameS - "Imaae Quality" 

sDefaultS = "5" " ^ _ 

iReturr.% = GetPrivateProf ileStrinq (ByVal sSectionS, 3yVai sKeyNameS, sDefault 
$, sReturnS, iReturnSize% , 3yVal sFileNameS) 
qQuai ityFactor% = Val ( sReturnS ) 
sKeyNameS = "Start Ud Screen" 

sDefaultS = "TRUE" * . 
iReturn% = GetPrivateProf ileStrinq (ByVal sSectionS, ByVai sKeyNameS, sDefaui 
sReturnS, iReturnSi zer , ByV^l sFiicna*r.^S ) 
qStartUoScreen$ - sReturnS 
If InStr (qStartUpScreen$, "FALSE") Then 
Load frmlmaqe Viewer 
Call exitSplashScreen 
End If 
End Sub 

Private Sub Timerl Timer ( ) 

exit Sol ashScreen 
End Sub 
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frmGocoPage - 1 



Option Explicit 
Deflnt A-Z 

Dim iPaqeNumber As Integer 

Private Sub cmdOK Click () 

If iPaqeNumber > 0 Then • « k , v^v- 

f rmlmaaeViewer .HScrolll .Value = iPageNumoer 

End If 

f rmGotoPaqe . Hide 
Unload frmGotoPage 
End Sub 



Y- - 1 



"=>^ivate Sub Form LoadO 

f rmGotoPaqe . Left = (Screen . Widtn - 
f rmGotoPaqe .Top = ( Screen . Heiqnt - 
lblNumOf Pages .Caption = "There are 

n this file . " 

End Sub 



f rmGotoPaqe . Width) / 2 
f rmGotoPaqe .Heiqnt) / 2 
" & f rmlmaaeViewer . vdVBX . 



Pages & " pages i 



Private Sub "xtGotoPaqe Chanqe ( \ 
• this must only be a number and : 

On Error Resume Next 

iPaqeNumber = txtGotoPage . Text 
End Sub 



t must be > 0 & < total number of pages 



frmAbout - 1 

Option Explicit 
Deflnt A-Z 

Private Sub cmdOK_ Click ( ) 

frmAbout . Hide 

Unload frmAbout 
End Sub 



Private Sub Form LoadO . , . . . , wirir>0 / 2 

frmAbcu- .Left = ( Screen . Wiatn - z rtnAbou. . V.^d ) * 2 

frmAbout. Top = ( Screen . Keiant - r rmAoou. . r.eig- ) / 

End Sub 



GLOBALS - 1 

Option Explicit 
Global qFormWidthfic 
Global cFormHeiqhtfit 
Global gFormLef t& 
Global cFormToo& 
Global qFit Widths 
Global qQualityFactor% 
Global qFileNameS 
1 Global cStartUoScreenS 
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X:\PCHASER\NATIONAL.MDB Tuesday. October 21. 1997 
Form: Main Page: 38 

Text Align: General Top: 3120 

Visible: Yes Width: 1149 



Code 

1 Option Compare Database 'Use database order for string comparisons 
2 

3 Sub Button23_Click () 

4 On Error CoTo Err_Button23_Click 
5 

6 Dim DocName As String 

7 Dim LinkCriteria As String 
8 

9 DocName « "Forml" 

10 DoCmd OpenForm DocName, , , LinkCriteria 

11 

12 Exit_Button23_Click: 

13 Exit Sub 
14 

15 Err_Button23_Click: 

16 MsgBox Error$ 

17 Resume Exit_Button23_Click 
18 

19 End Sub 
20 

21 Sub Exhibits_Click () 

22 On Error GoTo Err_Exhibits_Click 
23 

24 Dim DocName As String 

25 Dim LinkCriteria As String 
26 

27 DocName *= "Exhibit List" 

28 DoCmd Op en Form DocName, , , LinkCriteria 
29 

30 Exit_Exhibits_Click: 

31 Exit Sub 
32 

33 Err_Exhibits_Click: 

34 Msgbox Error$ 

35 Resume Exit_Exhibits_Click 
36 

37 End Sub 
38 

39 Sub Form_Got Focus <) 

40 DoCmd Maximize 

41 End Sub 
42 

43 Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As 
Single) 

4 4 Me. width = screen. width 



-51- 



BNSDOCID' <WO 9B18092A2 I > 



WO 98/18092 



PCT/US97/18935 



X:\PCHASER\NATIONAL.MDB Tuesday. October 21 , 1997 
Form: Main Pa 9 e: 39 

45 Me. height =* screen .height 

4 6 Me. left = (screen . width - Me. width) - 2 

47 Me. Top = (screen. height - Me. height) - 2 

48 End Sub 
49 

50 Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, * As Single) 

51 Me. width « screen. width 

52 Me. height « screen. height 

53 Me. left « 0 

54 Me. Top = 0 

55 End Sub 
56 

57 Sub FonnjOpen (Cancel As Integer) 

58 ahtAccessSysteml terns False, True, True 

59 End Sub 
60 

61 Sub Report_Menu_Click () 

62 On Error GoTo Err_Report_Menu_Cliek 
63 



64 Dim DocName As String 

65 Dim LinkCriteria As String 
66 

67 DocName « "Print Menu" 

68 DoCmd OpenForm DocName, , , LinkCriteria 
69 

70 Exit_Report_Menu_Click : 

71 Exit Sub 
72 

73 Err_Report__MerMj_C3 ick : 

74 MsgBox Error$ 

75 Resume Exit_Report_Menu_Click 



76 

77 End Sub 
78 

7 9 Sub Reports_Menu_Click () 

80 On Error GoTo Err_Reports_Menu_Click 

81 

82 Dim DocName As String 

83 Dim LinkCriteria As String 
84 

85 DocName = "Print Menu" 

86 DoCmd OpenForm DocName ( , , LinkCriteria 
87 

88 £xit_Reports__Menu_Click: 

89 Exit Sub 
90 

91 Err_Reports_Menu__Click * 

92 MsgBox Error $ 

93 Resume Exit_Reports_Menu_Click 
94 

95 End Sub 
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X:\PCHASER\NAT10NAL.MDB Tuesday. October 21 . 1997 

Form: Main Pa 9e* 40 



96 

97 Sub Text_ Search_Click () 

98 Dim ISYS$, X% 

99 ISYS « DLookup ("IsysPath" , "Preferences") 

100 ISYS « "C:\ISYS\IOW.EXE /Z /D«" + ISYS 

101 X = Shell (ISYS, 1) 

102 End Sub 
103 

104 Sub Trans crip t_Click (> 

105 On Error GoTo Err_Transcript__Click 
106 



107 Dim X As Integer 

108 Dim AppName As String 
109 

110 AppName « "C:\ACCESS\SUMCLONE.EXE" 

111 X = Shell (AppName, 1) 
112 

113 Exit_Transcript_Click: 

114 Exit Sub 
115 

116 Err_Transcript_Click: 

117 MsgBox Error$ 

11 B Resume Exit_Transcript_Click 



119 

120 End Sub 
121 

122 Sub Trans cript_Search_C lick, () 

123 On Error GoTo Err_Transcript_Search_Click 
124 

125 Dim X As Integer 

12 6 Dim AppName As String 

127 

128 AppName = " SUMCLONE . EXE *' 

129 X = Shell (AppName, 1) 
130 

131 Exit_Transcript_Search_Click: 

132 Exit Sub 
133 

134 Err_Transcript_Search__Click : 
lib MsgBox Error$ 

136 Resume Exit_Transcript__Search_Click 

137 

13 B End Sub 
139 

140 Sub Transcripts_Click () 

141 On Error GoTo Err^Transcripts^ClicJt 
142 

143 Dim X As Integer 

144 Dim AppName As String 
145 

146 AppName * "SUMCLONE.EXE" 
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X:\PCHASER\NATIONAL.MDB 
Form: Main 



Tuesday, October 21, 1997 
Page: 41 



147 
146 
149 
150 
151 
152 
153 
154 
155 
156 
157 



X = Shell (AppName, 1) 

Exit_Transcripts_Click: 
Exit Sub 

Err_Transcript9_Click : 
MsgBox Error$ 

Resume £xit_Transcripts_Click 
End Sub 
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X:\PCHASER\NATIONAL.MDB 
Form: Preferences 



Scroll Bars: 
Special Effect: 
Tab Stop: 
Top: 
Width: 



None 

Sunken 

Yes 

1560 

3600 



Section: 
Tab Index: 
Text Align: 
Visible: 



Tuesday, October 21, 1997 
Page: 47 



0 
4 

General 
Yes 



Code 

1 Option Compare Database 'Use database order for string comparisons 
2 

3 Sub Return_to_System_Man_Click () 

4 On Error Go To Err_Return_to__System_Men_Click 
5 

6 

7 DoCmd Close 

8 

9 Exi t_Re turn — to__Sys tem_Men_Click : 
10 Exit Sub 

11 

12 E r r__Re tum_to_Sys tem_Men_C 1 i c)c : 

13 MsgBox Error$ 

14 Resume Exit_Return_to_System_Men — Click 
15 

16 End Sub 
17 
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X:\PCHASER\NAT10NAL.MDB Tuesday. October 21. 1997 

Form: Print Menu Page: 73 



28 Exit_Comaents_Click: 

29 Exit Sub 
30 

31 Err_Comments_ClicJt : 

32 MsgBox Error$ 

33 Resume Exit__Comments_Click 
34 

35 End Sub 
36 

37 Sub Dat«»_Range_Click () 

38 On Error GoTo Err_Date_Range__Click 
39 

40 Dim DocName As String 
41 

42 DocName — "Date Range" 

43 DoCmd OpenReport DocName, A__PREVIEW 
44 

45 £xit_Date_Range__Click : 

4 6 Exit Sub 

47 

48 Err_Date_Range_Click: 

4 9 MsgBox Error$ 

50 Resume ExitJDate_Range_Click 
51 

52 End Sub 
53 

54 Sub Description_Click () 

55 On Error GoTo Err_Description_Click 

57 Dim DocName As String 
58 

59 DocName — "Search Term in Description" 

60 DoCmd OpenReport DocName, A_PREVXEW 
61 

62 Exit_Description_Click: 

63 Exit Sub 
64 

65 Err_Description__Click: 

66 MsgBox Error$ 

67 Resume Exit_D»*scription_Click 
68 

69 End Sub 
70 

71 Sub Doc Find_Click () 

72 On Error GoTo Err_Doc Find_Click 

73 

74 Dim DocName As String 
75 

7 6 DocName = "Document # Find" 

77 DoCmd OpenReport DocName, A__PREVIEW 

78 
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X:\PCHASER\NATIONAL.MDB 
Form: Print Menu 



7 9 Exit_Doc Find__Click : 

80 Exit Sub 

81 

82 Err_Doc Find_Click : 

83 MsgBox Error? 

84 Resume Exit_Doc Find__ Click 



85 

8 6 End Sub 
87 

88 Sub Names_Click () 

8 9 On Error GoTo Err_Names_Click 

90 

91 Dim DocName As String 

92 

93 DocName = "Names" 

94 DoCmd OpenReport DocName, A_P REVIEW 
95 

96 Exit_Names_Click: 

97 Exit Sub 
98 

99 Err_Names_Cliek: 

100 MsgBox Error$ 

101 Resume £xit_Names_Click 
102 

103 End Sub 
104 

105 Sub Seach_From_Click <) 

106 On Error GoTo Err_Seach_From_Click 
107 

108 Dim DocName As String 

109 

110 DocName = "Search From" 

111 DoCmd OpenReport DocName, A_P REVIEW 
112 

113 Exit_Seach_From_Click: 

114 Exit Sub 
115 

116 Err_Seach_From_Click: 

117 MsgBox ErrorS 

us Resume Ex^t_Seach_J?rom_Click 

119 

120 End Sub 
121 

122 Sub Search_CCs_Click () 

123 On Error GoTo Err_Search_CCs_ Click 
124 

125 Dim DocName As String 

126 

127 DocName - "Search CCs" 

128 DoCmd OpenReport DocName , A_ PREVIEW 
129 
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X:\PCHASER\NATIONAL.MDB 
Form: Print Menu 



Tuesday. October 21, 1997 
Page: 76 



181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 



Exit_Tag_l_Click : 
Exit. Sub 

Err_Tag_l__Click : 
MsgBox Error? 
Resume Exit_Tag_l__Click 

End Sub 

Sub Tag_10_Click () 

On Error GoTo Err_Tag_10_Click 

Dim DocKame As String 

DocKame = "ListlO" 

DoCmd OpenReport DocKame , A_PREVIEW 

Exit_Tag_l0_Click : 
Exit Sub 

E r r_Tag_l 0_C lick: 
MsgBox Error$ 
Resume Exit__Tag_10_Click 

End Sub 

Sub Tag_ll_Click () 

On Error GoTo Err_Tag_ll__Click 

Dim DocName As String 

DocName - "Listll" 

DoCmd OpenReport DocKame, A_PREVTEW 

Exit_Tag_ 11_ Click: 
Exit' Sub 

Err_Tag_ll_Click : 
MsgBox Error$ 
Resume Exit_Tag_ll_Click 

End Sub 

Sub Tag_12_Click <) 

On Error GoTo Err_Tag_12_Click 

Dim DocKame As String 

DocName - "Listl2" 

DoCmd OpenReport DocName, A__PREVTEW 
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232 Exit_Tag_12_Click: 

233 Exit Sub 
234 

235 Err_Tag_12_Click: 

236 MsgBox Error $ 

237 Resume Exit_Tag_12_Click 



238 

239 End Sub 
240 

241 Sub Tag_13_Click () 

242 On Error GoTo Err_Tag_13_Click 
243 

244 Dim DocName As String 

245 

246 DocName « "ListlS" 

247 DoCmd OpenReport DocName, A__PREVXEW 
248 

24 9 Exit_Tag_13_Click: 

250 Exit Sub 

251 

252 Er r_Tag_l 3_C 1 i ck : 

253 MsgBox Error$ 

254 Resume £xit_ Tag_13_Click 
255 

256 End Sub 
257 

258 Sub Tag_14_Click () 

259 On Error GoTo Err_Tag_14_Click 
260 



261 Dim DocName As String 
262 

263 DocName « "Listl4" 

264 DoCmd OpenReport DocName, A_PREVIEW 
265 

266 Ex it_Tag_14_ Click: 

267 Exit Sub 
268 

269 Err_Tag_14_Click: 

270 MsgBox Error$ 

Z:/l resume Exit_Tag_i4_Click 



272 

273 End Sub 
274 

275 Sub Tag_15_Click {) 

27 6 On Error GoTo Err_ Tag_15_Click 

277 

278 Dim DocName As String 

279 

280 DocName ■= "ListlS" 

281 DoCmd OpenReport DocName, A_PR£VIEW 
282 
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283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

31B 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 



Exit_Tag_15_Click : 
Exit Sub 

Err_Tag_15__ Click : 
MsgBox Error$ 
Resume Exi t_Tag_15__C lick 

End Sub 

Sub Tag_16_Click () 

On Error GoTo Err_Tag__16_Click 

Dim DocKame As String 

DocName = "Listl6" 

DoCmd OpenReport DocName, A_P REVIEW 

Exit_Tag_l 6_Click : 
Exit Sub 

Err_Tag_l 6_Click : 
MsgBox Error$ 
Res ume Exi t_Tag_l 6_C lick 

End Sub 

Sub Tag_17_Click () 

On Error GoTo Err_Tag_17_Click 

Dim DocName As String 

DocName «= M Listl7" 

DoCmd OpenReport DocName, A_PREVTEW 

Exi t_Ta g_l 7_C 1 i ck : 
Exit Sub 

£rr_Tag_17_Click: 
MsgBox Exror$ 
Resume £xic_Tag_17_Click 

End Sub 

Sub Tag_18_Click () 

On Error GoTo Err_Tag_18_Click 

Dim DocName As String 

DocName « "ListlS" 

DoCmd OpenReport DocName, A PREVIEW 
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334 

335 

336 

337 

336 

339 

340 

341 

342 

343 

344 

345 

346 

347 

34B 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

36B 

369 

370 

371 

372 

i .* j 

374 

375 

376 

377 

378 

379 

380 

381 

382 

383 

384 



Exit_Tag_18_Click : 
Exit Sub 

ErrjTag^lB^Click : 
MsgBox Error? 
Resume Exit_Tag_18_Click 

End Sub 

Sub Tag_l9_Click () 

On Error GoTo Err_Tag_19_Click 

Dim DocName As String 

DocName « "Li8tl9" 

DoCmd OpenReport DocKame , A__PR£VIEW 

Exit__Tag_l 9_Click : 
Exit Sub 

£rr_Tag_19_Click : 
MsgBox Error? 
Res ume Exi t_Tag__l 9_C lick 

End Sub 

Sub Tag_2_Click () 

On Error GoTo Err_Tag__2_Click 

Dim DocHame As String 

DocName « ,, l J ist02 ,, 

DoCmd OpenReport DocName , A_PREVIEW 

Exit_Tag__2__Click : 
Exit Sub 

Err_Tag_2_Click : 
MsgBox ErrorS 
Resume Ex2.t_Ttg_2_Click 

End Sub 

Sub Tag_2 0_Click () 

On Error GoTo Err_Tag_20_Click 

Dim DocName As String 

DocName « n List20 M 

DoCmd OpenReport DocName, A_PREVIEW 
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385 Exi t_Tag_2 0_C 1 i ck : 

386 Exit Sub 
387 

388 Er r_Tag_2 0_C 1 ick : 

389 MsgBox Error? 

390 Resume Exit_Tag__20_Click 
391 

392 End Sub 
393 

394 Sub Tag_21_Click () 

395 On Error GoTo Err_Tag_21_Click 
396 

397 Din DocName As String 
398 

399 DocName « "List21" 

400 DoCmd OpenReport DocName, A__PREVIEW 
401 

402 Exi t_Tag_21_C lick: 

403 Exit Sub 
404 

405 Er r_Tag_2 1_C 1 ick : 

406 MsgBox Error? 

407 Resume Exi t_Tag_J21_C lick 
408 

409 End Sub 
410 

411 Sub Tag_22_Click () 

412 On Error GoTo Err_Tag_22_Click 
413 

414 Dim DocName As String 
415 

416 DocName ~ M List22" 

417 DoCmd OpenReport DocName, A_P REVIEW 
418 

419 Exit_Tag_22_Click: 

420 Exit Sub 
421 

422 Err_Tag_22_Click: 

423 MsgBox Error? 

42* Rosu=e Exit_Tag_22_ C tict 
425 

426 End Sub 
427 

428 Sub Tag_23_Click () 

429 On Error GoTo Err_Tag_23_Click 
430 

431 Dim DocName As String 
432 

433 DocName « #, List23" 

434 DoCmd OpenReport DocName, A__PREVTEW 
435 
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436 Ex i t_Tag_ 2 3_C li ck : 

437 Exit Sub 
438 

439 Err_Tag_23_Click: 

440 MsgBox Error$ 

441 Resume Exit_Tag_23_Click 
442 

44 3 End Sub 
444 

445 Sub Tag_24_Click () 

44 6 On Error GoTo Err_Tag_24_Click 
447 

448 Dim DocName As String 
449 

450 DocName • "List24 M 

451 DoCmd OpenReport DocName, A_PREVTEW 
452 

453 Exit_Tag_24_Click: 

454 Exit Sub 
455 

456 Err_Tag_24_Click: 

457 MsgBox ErrorS 

458 Resume Exit_Tag_24_Click 
459 

460 End Sub 
461 

462 Sub Tag_3_Click () 

4 63 On Error GoTo Err_Tag_3_Click 

464 

465 Dim DocName As String 
466 

467 DocName *= n List03" 

4 68 DoCmd OpenReport DocName, A_PR£VTEW 
469 

47 0 Exi t_Tag_3_Click : 

471 Exit Sub 
472 

473 Err_Tag_3_Click: 

474 MsgBox Error$ 

475 Re sum a Ex2.z_Tag_3_Clich 
476 

477 End Sub 
478 

47 9 Sub Tag_4_Click () 

480 On Error GoTo Err_Tag_4__Click 

481 

482 Dim DocName As String 
483 

484 DocName « "Iiist04" 

485 DoCmd OpenReport DocName, A__£»REVIEW 
486 
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487 Exit_Tag_ 4_Click : 

488 Exit Sub 
489 

4 90 Err_Tag_4_Click: 

4 91 MsgBox ErrorS 

4 92 Resume Exit_Tag_4_Click 
493 

4 94 End Sub 
495 

4 96 Sub Ta^ 5_Click {) 

4 97 On Error GoTo Err_Tag_5__Click 
498 

4 99 Dim DocName As String 
500 

501 DocName «= "ListOS" 

502 DoCmd OpenReport DocName , A_PREVTEW 
503 

504 Ex i t_Tag_5_C lick : 

505 Exit Sub 
506 

507 ErrJTag_5_C 1 i ck : 

508 MsgBox Error$ 

509 Resume Exit_Tag_5_Click 
510 

511 End Sub 
512 

513 Sub Tag_ 6_Click () 

514 On Error GoTo Err_Tag_6__Click 
5:5 

516 Dim DocName As String 
517 

518 DocName = "L,ist06" 

519 DoCmd OpenReport DocName, A_PR£VIEW 
520 

521 Exit_JTag_6_Click: 

522 Exit Sub 
523 

524 E r r_Tag_6_Cli ck : 

525 MsgBox Error$ 

52 5 Resume Exit_T*g__t_Cli£k 
527 

528 End Sub 
529 

530 Sub Tag_7_Click () 

531 On Error GoTo Err_Tag_7_Click 
532 

533 Dim DocName As String 
534 

535 DocName «= "I*ist07" 

536 DoCmd OpenReport DocName, A_PREVIEW 
537 



- 64 - 



Tuesday. October 21, 1997 
Page: 82 



BNSDOCID <WO 9818092A2 I > 



WO 98/18092 



PCT/US97/18935 



X:\PCHASER\NATIONAL.MDB 
Form: Print Menu 

538 Exit_TagJ7_Click: 

539 Exit Sub 
540 

541 Err_Tag_7_Click: 

542 MsgBox Error$ 

543 Resume Exit_Tag_7_C lick 
544 

545 End Sub 
546 

547 Sub Tag_8_Click () 

548 On Error GoTo Err_Tag_8__Click 
549 

550 Dim DocName Aa String 
551 

552 DocName « "List08" 

553 DoCxnd OpenReport DocName, A_PREVIEW 
554 

555 Exit_Tag_8_Click: 

556 Exit Sub 
557 

558 Err_Tag_8_Click : 

559 MsgBox Error$ 

560 Resume Exit__Tag__8_Click 
561 

562 End Sub 
563 

564 Sub Tag_9_Click () 

565 On Error GoTo Err_ Tag_9_Click 
566 

567 Dim DocName As String 
568 

569 DocName * "List09" 

570 DoCmd OpenReport DocName, A_PREVIEW 
571 

572 Exit_Tag_9_Click: 

573 Exit Sub 
574 

575 Err_Tag_9_Click: 

576 MsgBox Error$ 

577 Resume Exit_T£.3_9_Click 
578 

57 9 End Sub 
580 
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CDINFO. DAT 

An ASCII file used by Paper Chaser when CDs are used. It is set up in 
the following manner. 

"Yes" implied the case uses CDs. 2 is the Length cf the image filenam 
e prefix. These are 

both on the first line. Each disk is given its own line. The first nu 
mber is the disk 

number, the second is the starting document number and the third is the 
ending document 

number for the CD. The numbers are separated by commas. CDINFO . DAT mu 

st reside in the case 

directory. 

EXAMPLE 

YES, 2 

1, 00001, 05000 

2, 05001, 05799 
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'Option Explicit 
• Deflnt A-Z 

Allows program to float on top of all programs 

•Private Declare Function SetWindowPos Lib "user" (ByVal h%, ByVal hb%, 
ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal f%) As Integer 
'reads ini files 

Private Declare Function GetPrivateProf ileString Lib "Kernel" (ByVal lp 
ApplicationName As String, IpKeyName As Any, ByVal lpDefault As String, 
ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFile 
Name As String) As Integer 



Dim ms_FileSavePath$ 

Dim ms_buttonWithFocus$ 

Dim ms_DataBaseName$ 

Const OFN_H I DEREADONL Y = &H4& 

Private Sub buttonToggle ( ) 
On Error Resume Next 

cmdSave . Enabled = Not cmdSave . Enabled 
cmdScan . Enabled = Not cmdScan . Enabled 
cmdScan90. Enabled = Not cmdScan90 . Enabled 
cmdScanSave .Enabled = Not cmdScanSave . Enabled 
cmdSetUp. Enabled = Not cmdSetUp . Enabled 
'reset the focus back to the correct button 
Select Case ms__buttonWithFocus$ 
Case "cmdScan" 

cmdScan . SetFocus 
Case "cmdScan90" 

cmdScan90 . SetFocus 
Case "cmdScanSave" 

cmdScanSave . SetFocus 
End Select 



End Sub 



Private Sub chkSaveToDataBase_Click ( ) 
If chkSaveToDataBase .Value = 1 Then 

Call pathlnfo 'gets the DB and paths to save images 
Else 

ms_FileSavePath$ = App.Path 'save images to the default path 
' add 'V to path if needed 
If Rich*- (ms FileSave??th?. 1) "\" Then ms_FileSa ,r e?*th? - ms 
FileSavePath? & "\" 

End If 
End Sub 



Private Sub cmdSave_Click ( ) 
On Error GoTo SaveError 

If wmObject . PageCount = 0 Then Exit Sub 

Dim li?ages% 

Call buttonToggle 
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Screen . MousePointer = 11 
Load frmDi splay 
f rmDisplay . Show 

If chkAutoDeskew. Value = 1 Then Call Deskewlmage 

f rmDisplay .Hide 

Unload frmDisplay 

liPages% = wmOb ject . PageCount 

wmObject . DocumentName « txtPref ix . Text & txtSuf ix . Text 
1 [SaveAsLocal filename, fpage, cpages, fOverwrite] 

wmObject .SaveAsLocal ms_FileSavePath$ & txtPref ix . Text & txtSufix.Te 
xt & ".tif", 1, liPages%, 1 

If chkSaveToDataBase .Value = 1 Then Call dbWrite 
Call number sUpdate 

• Close the current document, even if it has been modified but not s 
aved. 

wmObject . CloseDoc 

Screen . MousePointer = 0 

Call buttonToggle 
Exit Sub 
SaveError : 

MsgBox "ErrorS " & Err. Number & " " & Err . Description 
Resume Next 
End Sub 



Private Sub cmdScan_Click ( ) 

ms_buttonWithFocus$ = "cmdScan" 
Call buttonToggle 
Dim liPages% 

liPages% = wmObject . PageCount 
liPages% = liPages% + 1 

1 [Scan fpage, incrPage, maxPages, flags] 
wmObject . Scan liPages% / 1, -1, 0 

txtBatesENum. Text = Format ( Int (txtBatesBNum . Text ) + wmOb j ect . PageCou 
nt - 1, "0000000") 

Call buttonToggle 
End Sub 

Private Sub cmdScan90_Click { ) 

ms_buttonWithFocus$ = "cmdScan90 M 
Call buttonToggle 

Dim li Pages* 
liPages% = wmObject . PageCount 
liPages% = liPages% + 1 

1 [Scan fpage, incrPage, maxPages, flags] 
wmObject . Scan li Pages % , 1 , -1 , 1 

txtBatesENum. Text = Format ( Int ( txtBatesBNum . Text ) + wmObject . PageCou 
nt - 1, "0000000") 

Call buttonToggle 
End Sub 
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Private Sub cmdScanSave_Click ( ) 

ms_buttonWithFocus$ « "cmdScanSave" 
Call buttonToggle 
Screen . MousePointer = 11 

• [Scan fpage, incrPage, maxPages, flags] 

wmObject . Scan 1, 1, 1/ 0 

txtBatesENum. Text = txtBatesBNum. Text 

• [SaveAsLocal filename, fpage, cpages, fOverwrite] 

If chkAutoDeskew. Value = 1 Then Call Deskewlmage 

wmObject . DocumentName = txtPref ix . Text & txtSuf ix . Text 

wmObject .SaveAsLocal ms_FileSavePath$ & txt Prefix . Text & txtSufix.Te 

xt & ".tif", 1/ 1/ 1 

If chkSaveToDataBase. Value = 1 Then Call dbVJrite 

Call numbersUpdate 

• Close the current document, even if it has been modified but not s 

aved. 

wmObject .Close Doc 

Screen . MousePointer = 0 

Call buttonToggle 
Exit Sub 
SaveError : 

MsgBox "Error* " & Err. Number & " " & Err . Description 
Resume Next 
End Sub 

Private Sub cmdSetup_Click ( ) 

1 Display the Scanner Setting dialog box 

wmObject . ScanSetup 

Call settingsGet 
End Sub 

Private Sub dbWriteO 
On Error GoTo DBError 

1 Open "c: \TESTFILE.TXT" For Append As 1 1 Open file for output. 

Print #1, txtPrefix.Text & txtSuf ix . Text & " , " ; txt Prefix . Text & t 
xtSufix.Text & ".tif, "; txtBatesPre . Text & txtBatesBNum. Text & ", "; t 
xtBatesPre . Text & txtBatesENum. Text 1 Write data to file. 

Close #1 

'•check the DOC NUMBER from Document Info 
' 'to see if it has already been used 
Set gdb = OpenDatabase <ms_DataBaseName$ ) 
3tr2CL - "SELECT * Tr.Oi: [Document Info] " 

Set mdsChaser « gdb . OpenRecordset ( strSQL, dbOpenDynaset ) 
mdsChaser.FindFirst "[Doc Number] = "&""'& txtSuf ix. Text & 
If mdsChaser .NoMatch Then 

mdsChaser .AddNew 'write data to database 
Else 

mdsChaser . Edit 'overwrite existing data 
End If 

mdsChaser ! [Doc Number] =» txtSuf ix . Text 

mdsChaser ! [Entry Info] = txtPrefix.Text & txtSuf ix . Text & H .tif" 
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mdsChaser ! [Beg Bates #] = txtBatesPre . Text & txtBatesBNum. Text 
mdsChaser ! [End Bates #] = txtBatesPre . Text & txtBatesENum. Text 
mdsChaser . Update 
mdsChaser . Close 
Exit Sub 
DBError : 

MsgBox "ErrorS " & Err. Number & " " & Err . Description 
chkSaveToDataBase . Value = 0 
ms_FileSavePath$ = App.Path 
Exit Sub 
End Sub 

Private Sub Deskewlmage ( ) 
On Error Resume Next 

If chkAutoDeskew. Value = 0 Then Exit Sub 
Dim docPages% 
Dim curPagel 

docPages% = wmOb ject . PageCount 
For curPage% = 1 To docPages% 

frmDisplay . lblPages .Caption = "Deskewing page M & curPage% & " of 
" & docPages% & 

frmDisplay .pnlPages . FloodPercent = curPagel / docPages% * 100 
wmObject . PageDeskew curPagel 
DoEvents 
Next curPagel 

frmDisplay . lblPages .Caption « "Saving TIFF file." 
End Sub 

Private Sub Form__Load ( ) 
'Dim li_OnTop% 

' li_OnTop% =" SetWindowPos (Me .hWnd, -1, 0, 0, 0, 0, 1) 
1 Create a Watermark Professional object 
Me. Left = 0 
Me. Top = 0 

Set wmObject = CreateOb ject ( "Watermark . Automation" ) 

wmObject . ShowWindow 2 1 Show Watermark Window 

ms_FileSavePath$ = App.Path 

1 add 'V to path if needed 
If Right (ms_FileSavePath$, 1) <> "\" Then ms_FileSavePath$ = ms_Fil 
eSavePath? & "V 

Call settingsGet 
End Sub 

Private Sub Form_Unload (Cancel As Integer) 

1 Exit Watermark, even if the current document has been modified but 
not saved. 

1 Setting wmObject to Nothing causes Visual Basic to unload Watermar 
k from memory 

wmObject . Exit 

Set wmObject = Nothing 

Set mdsChaser = Nothing 
End Sub 
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Private Sub settingsGet ( ) 
Dim sFileName$ 
Dim sSection$ 
Dim sKeyName$ 
Dim sDefault$ 
Dim sReturn$ 
Dim iReturnSi2e% 
Dim iReturn% 
sSection? = "FUJIGINE" 
sKeyName$ = "PageSize" 
sDefault$ = 
sReturn? = Space$(25) 
iReturnSize% = 25 

sFileName$ = n C : \ windows \wmpro . ini" 

iReturnl = GetPrivateProf ileString (ByVal sSection$ / ByVal sKeyName?, 
sDefault$, sReturn?, iReturnSize% , ByVal sFileName$) 

Me. Caption = "Luke's WaterMark Scan Utility " & sReturn$ 

End Sub 



Public Sub pathlnfoO 

On Error GoTo PathError 
Dim mdsPathlnfo As Recordset 
Dim strSQL$ 

'choose a database with common dialog 
CommonDialogl . CancelError = True 
CommonDialogl . DialogTitle = "Select Database" 
CommonDialogl . Flags = OFN_HI DEREADONLY 
CommonDialogl . Filter = "Database files 1 *.mdb" 
CommonDialogl . Filterlndex = 1 
CommonDialogl .Action = 1 

ms_DataBaseName$ = CommonDialogl. filename 
'check the database for the path of the images files 
Set gdb = OpenDatabase (ms_DataBaseName$ ) 
strSQL = "SELECT * FROM Preferences" 

Set mdsPathlnfo = gdb . OpenRecordset ( s trSQL, dbOpenDynaset ) 
'set the file save path to it 
ms_FileSavePath$ = mdsPathlnfo ! ImagePath 
' add 'V to path if needed 

If Right fir.s Fil°5?. Tr ePath$ 1) <> "\" Then r n .s_FileSavePath$ -= 
eSavePath$ & "V 7 

mdsPathlnfo . Close 

Set mdsPathlnfo = Nothing 

Exit Sub 
PathError : 

If Err = 32755 Then ' cancel button was pressed 
chkSaveToDataBase . Value = 0 
ms_FileSavePath$ = App . Path 
Exit Sub 
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Elself Err = 3078 Then 

chkSaveToDataBase. Value = 0 

MsgBox "The database choosen is either not a PaperChaser database 
, or it is corrupted" 

ms_FileSavePath$ = App.Path 
Exit Sub 
Else ' 

MsgBox "ErrorS " & Err. Number & " " & Err . Description 
chkSaveToDataBase .Value * 0 
ms_FileSavePath$ = App.Path 
Exit Sub 
End If 
End Sub 

Public Sub numbersUpdate ( ) 

txtSufix.Text = Format (Int (txtSufix. Text) + 1, "00000") 
txtBatesBNum. Text = Format ( Int ( txtBatesENum . Text ) + 1, "0000000") 
txtBatesENum. Text = Format (Int (txtBatesENum. Text) + 1, "0000000") 

End Sub 
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frmDisplay - 1 
Option Explicit 

Private Sub Form_Load ( ) 

Me. Top = (Screen. Height - Me. Height) / 2 
Me. Left = ( Screen . Width - Me. Width) / 2 

End Sub 
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frmWMScan - 1 

* Option Explicit 
'Deflnt A-Z 

' Allows program to float on top of all programs y , hb% , 3vVa l 7.1, 3yVel Y*. ByVa 

Private Declare Function setWmdowPos Lib "user (ByVal ft*, ~y 
1 cx%, ByVal cyi, ByVal f%) As Integer 

'reads ini files . ^ «K^rn^ 1M (3Wal IpAoolicationName As String 

^ivate Declare Function GetPr ivatePronleStrmg Lib ' ^, ng % s ' string. BWal nSize As 

loKeyName As Any, ByVal lpDefault As String, ByVal IpRetu.nec— ng . 
Integer, ByVal IpFileName As String) As Integer 

Dim ms_FileSave?athS 
Dim ip.s_buttonWithrocusS 
Dim ms DataBaseNameS 
Const OFNJiZDEr.EADONLV = 

Private Sub but t cr.Toggle ( ) 
On r ^rcr P.esu^e Next 

cmdSave. Enabled = *-t c--iS?.v£ . _r.abled 
cmdScan. Enabled = Not cmdScan . r.nableo 
cmdScan90. Enabled = Not cmcScan90 . Enaoled 
cmdScanSave. Enabled - Not cmdScanSave . Enabled 
cmdSetUo. Enabled » Not cmdSetUp . Enabled 
•reset the focus back to the correct button 
Select Case rr.s_buttor.WithFocus$ 
Case " cmdScan" 

cr.dScan . Set Focus 
Case "cmcScar.90" 

cmcScar.90 . Set Focus 
Case "cmdScanSave" 

cmdScanSave . Set Focus 
End Select 

End Sub 

Private Sub chhSaveTcDat a3ase_Click ( ) 
t f chkSaveTcDataEase .Value - 1 Then 

Call pathZnfo 'gets the D3 and paths to save images 

E1S rns_FiieSave?ath$ = App.Path 'save images to the default path 

• add 'V to path if needed = ri i e Save?atr.S i "\" 

If Ricnt (~s_FileSavePathS , i) <> '\ Tnen ^tiieiave.a...- 

End If 
End Sub 

Private Sub cT.cSave_Ci ick ( ) 
Cn Error GcTc SaveErrcr 

If wmObject . PageCcur.t = 0 Then Exit Sue 

Dim liPages* 

Call buttcnToggie 

Screen. Mouse Pointer = 11 

Load f rrr.Di splay 

f rmDisDlav. Show 

if chkAutoDe skew. Value - 1 Then Call Desicewlmage 

f rmDispiay . Hide 

Unload frrr.Display 

liPaaes% =■ wmObject . PageCount 

wmObject. DocumentName = txtPref ix. Text S txtSuf i>: . - ext 

• [SaveAsLocai filename, fpage, cpages, fOverwrite] m ^ liPacesi, 

wmObiect-SaveAsLocal ns FileSavePathS C txt Prelix . > ex . o x.Text 



If chkSaveToDataaase . Value = 1 Then Call dbr.'rite 
Call numbers Coda te 

1 Close the current document, even 

wmObject .CloseDoc 

Screen . Kcuse Pointer * 0 

Call buttonToggle 
Exit Sub 
SaveError : 



f it has been modified but net savec. 
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MsgBox "ErrorO " & Err. Number & " M £ Err . Description 
Resume Next 
Cnd Sub 

Private Sub cmdScan_Click ( ) 

ms_buttonWithFocus$ - "cmdScan" 
Call buttonToggle 
Dim liPagoafc 

liPagesfc = wmObject . PageCount 
liPages% = liPagesfc + 1 

• [Scan fpage, incrPage, maxPages, flags) 
wmObject .Scan liPages%, 1, -1# 0 

1 txtBatesENum.Text « Format ( Int (txtBatesBNum. Text ) + wmObject . PageCount - 1, "0000000") 
Call buttonToggle 
Cnd Sub 

Private Sub cmdScan90_Click ( ) 

ms buttonWithFocusS = H cmdScan90" 
Call buttonToggle 

Dim liPageeQ 
liPagesfe = wmObject . PageCount 
liPagesS « liPagesft + 1 

• [Scan fpage, incrPage, maxPages, flags) 
wmObject. Scan liPages%, 1, -1, 1 

•txtBatesENum.Text - Format (Int (txtBatesBNum. Text) + wmObject . PageCount - 1, "0000000") 
Call buttonToggle 
End Sub 

Private Sub cmdScanSave^Click ( ) 

ms_buttonWithFocus$ - "cmdScanSave" 
Call buttonToggle 
Screen. MousePointer =» 11 

■ (Scan fpage, incrPage, maxPages, flags) 

wmObject. Scan 1, 1, 1, 0 

1 txtBatesENum.Text = txtBatesBNum. Text 

• [SaveAsLocal filename, fpage, cpages, fOverwrite) 

If chkAutoDeskew. Value = 1 Then Call Deskewlmage 

wmObject . DocumentName - txtPref ix . Text & txtSuf ix.Text 

wmObject . SaveAsLocal ms FileSavePath$ a txtPref ix .Text & txtSuf ix . Text & ".til", 1, 1, 1 
If chkSaveToDataBase. Value « 1 Then Call dbWrite 
Call numbersUpdate 

• Close the current document, even if it has been modified but not saved. 
wmObject . Close Doc 

Scroen .MousePointer = 0 

Call buttonToggle 
Exit Sub 
SaveError : 

MsgBox "Error fl " & Err. Number £ " " & Err . Description 
Resume Next 
End Sub 

Private Sub cmdSetup_Click ( ) 

• Display the Scanner Setting dialog box 
wmOb j ect , ScanSetup 

Call settingsGet 
End Sub 

Private Sub dbWritet) 
On Error GoTo DBError 

* Open "c:\TESTFTLE.TXT" For Append As 1 1 Open file for output. 

Print 81, txtPref ix.Text & txtSuf ix.Text & ", "; txtPref ix.Text & txtSuf ix . Text & ".tif, * 
txtBatesPre.Text & txtBatesBNum. Text & ", "; txtBatesPre.Text & txtBatesENum.Text 1 Write data t 
o file. 

Close 01 

• ' check the DOC NUMBER from Document Info 
''to see if it has already been used 
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f rmWMScan - 3 

Set gdb ° QpenDatabase (ms ' DataBaaeNainoS) 
strSQL *» "SELECT * FROM. (Document Info)" 

Sot mdsChaser = gdb.OpenRecordset (strSQL, dbOpenDynaset) 
mdsChaser. FindFirst H [Doc Number) « n 6 H 1 " & txtSuf ix.Text & " ' " 
If mdsChaser. NoMatch Then 

mdsChaser .AddNew 'write data to database 
Els© 

mdsChaser. Edit 'overwrite existing data 
End If 

mdsChaser! [Doc Number] « txtSufix.Text 

mdsChaser I (Entry Info) ° txtPrefix.Text & txtSuf ix.Text & ".tif" 
• mdsChaser! (Beg Bates 8) ~ txtBatesPre. Text & txtBatesBNum.Text 
' radeChaser! (End Bates Q) « txtBatesPre. Text & txtBatesENum.Text 

mdsChaser! (Description) « txtDescription.Text 

mdsChaser . Update 

mdsChaser. Close 

Exit Sub 
DBErsfor: 

MsgBox "Errorfl " & Err. Number & w " & Err . Description 
chkSaveToDataBase. Value « 0 
ma FileSavePath$ = App.Path 
Exit Sub 
End Sub 

Private Sub Deskewlmage ( ) 
On Error Resume Next 

If chkAutoDeskew. Value « 0 Then Exit Sub 
Dim docPagesS 
Dim curPagofe 

docPages% ° wmObject . PageCount 
For cur Page % ° 1 To docPages% 

frmDisplay.lblPages. Caption ° "Deskewing page " & c^rPageft & " of " & docPagesfc & 
frmDiaplay .pnlPages . FloodPercent « curPage% / docPages% * 100 
wmObject . PageDeskew curPageS 
DoEvents 
Next curPage% 

frmDisplay.lblPages .Caption - "Saving TIFF file." 
End Sub 

Private Sub Form_Load() 

• Dim ) l_OnTop§ 

'li^OnTopfc - SetWindowPos (Me.hWnd, -1, 0, 0, 0, 0, 1) 

• Create a Watermark Professional object 
Me. Left ° 0 

Me. Top = 0 

Set wmObject « CreateObject ("Watermark. Automation") 
wmObject .ShowWindow 2 • Show Watermark Window 
ms_FileSavePath$ » App.Path 
1 add •V to path if needed 

If Right <ms_FileSavePath$, 1) <> "\" Then ms_FileSavePath$ ~ ms_FileSavePath$ £ "\" 
Call settingsGet 
End Sub 

rrlvate Sub Form_Unload (Cancel As Integer) 

• Exit Watermark, even if the current document has been modified but not saved. 

• Setting wmObject to Nothing causes Visual Basic to unload Watermark from memory 
wmObject .Exit 

Set wmObject « Nothing 
Set mdsChaser » Nothing 
End Sub 

Private Sub settingsGet ( ) 
Dim sFileName$ 
Dim sSection$ 
Dim 8KeyNamQ$ 
Dim sDefault$ 
Dim a Return $ 
Dim iReturnSize% 
Dim iReturnfc 
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sSection$ - "FUJIGINE" 
sKeyName$ « "PageSise" 
sDefault$ a 
sReturn$ ~ Spacc$(25) 
iReturnSi2e% » 25 

sFileName$ «■ "C:\windows\wmpro.ini" 

iReturnfc « GetPrivateProf ileString (ByVal sSection$, ByVal sKeyNameS, sDefault$, sReturnS, iRe 
turnSize%, ByVal sFileName$) 

Me. Caption » "Luke's WaterMark Scan Utility " & sReturn$ 

End Sub 



Public Sub pathlnfoO 

On Error GoTo PathError 
Dim mdsPathlnfo As Recordset 
Dim strSQL$ 

•choose a database with conur.?r. dialog 
CommonDialogl. CancelError = True 
CommonDialogl . DialogTitle - "Select Database" 
CommonDialogl. Flags - O FN — H I DERE ADONLY 
CommonDialogl . Filter - "Database files I *.mdb" 
CommonDialogl. Filterlndex « 1 
CommonDialogl .Action = 1 

ms_DataBaseName$ « CommonDialogl . filename 

'check the database for the path of the images files 

Set gdb - OpenDatabase (ms_DataBaseName$ ) 

st r SQL - "SELECT * FROM Preferences" 

Set mdsPathlnfo « gdb, OpenRecordset ( strSQL, dbOpenDynaset) 
'set the file save path to it 
ms_FileSavePath$ » mdsPathlnfo ! ImagePath 
' add • V to path if needed 

If Right (ms_FileSavePath$, 1) <> "\" Then ms_FileSavePath$ » ms_FileSavePath$ & "\" 
mdsPathlnf oTciose 
Set mdsPathlnfo - Nothing 
Exit Sub 
PathError: 

If Err - 32755 Then ' cancel button was pressed 

chkSaveToDataBase . Value ™ 0 

ms_FiJ eSavePath$ «■ App.Path 

Exit Sub 
Elself Err - 3076 Then 

chkSaveToDataBase . Value <=* 0 

MsgBox "The database choosen is either not a PaperChaser database, or it is corrupted" 
ms_FileSavePath$ » App.Path 
Exit Sub 
Else ' 

MsgBox "Error** " & Err. Number & " 6 Err . Description 
ChkSaveToDataBase .Value = 0 
ms_FileSavePath$ = App.Path 
Exit Sub 
End If 
End Sub 

Public Sub numbersUpdate ( ) 

txtSufix.Text = Format ( Int ( txtSufix . Text ) + 1, "00000") 

'txtBatesBNum.Text « Format ( Int ( txtBatesENum. Text ) + 1, "0000000") 

'txtBatesENum.Text ~ Format ( Int {txtBatesENum. Text ) + 1, "0000000") 
End Sub 
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WMSCAN1 - 1 
Option Explicit 

Global wmOhject As Object 1 The object handle to Watermark 
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frmDisplay - 1 
Option Explicit 

Private Sub Foriu_Load() 

Me. Top ~ (Screen. Height - Me. Height) / 2 
Me. Left = (Screen .Width - Me. Width) / 2 

End Sub 



X 
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frmOCR - 1 

' Copyright (C) 1995, 1996 Lur.e Spence 
■ Last modified on 05/01/96 
Option Explicit 

Prfvale^eciare Function FindWindow. Lib "user" OyVal IpClassName ?.s Ar.y. EyVal IpCaption As An 

•Declare Sub SetCursorPos Lib "User" OyVal x ?.s Integer, ByVal y ks Integer) 
'There's no need tc reset mouse position with OmniPage Lite 
Dim SetUp 

Dim programCapt ionS 
Dim programPathS 
Dim FNameS 
Dim DocFNameS 
Dim rilePathS 
Dim fileToGetS 
Dim nuiaOfFiies% 
Dim x* 

Dim numSelected* 
Dim percentDcnei 
Dim procCount* 
Dim test* 

Private Sub c-d£xit_Ciick ( ) 

End 
End Sub 

Private Sub cmdPrccess_Ciick ( } 
Dim iLoop% 

Or. Error Resume Next 

If Filel . filename ■= " Then m 

MsgBox "Please choose a file.'*, 2, "Ko file se.ected. 

Exit Sub 
End If 

If Right (Filei. Path, 1) = "\" Then 

filePath = Filel. Path 
Else 

filePath = Filel. Path & "\" 
End If 

numOf Files i *= Filel . ListCounz 
For iLoopt - 0 Tc numCf Files'* - 1 

If Filel . Selected ( iLoop% J Then numSeiectec% = n^-nSu-ertc- . - - 
Next iLoopi 

percentDone* = 100 \ numSelectedt 
For iLoopt = 0 To numOf Files* - 1 

fileToGetS = File! . List ( iLoop% ) 

If File! . Selected ; iLoop% } Then 
FName - filePath & fileToGet 

DocFName = Lefts ( fileToGet , ; Len ( fileToGet - 3)) 

DrocCcur.t* = crocCount* - 1 _ _ .. 

"pnlDispiay .Caption = "Processor.- " L crccCcur.t % * " cz u ,T--;e:;:tea! 

Call Process 

DoFvents _„„--n«~.» 
onlPerc»r.tC:;^olete.FloodP«rce-.t = pn i ^rr^.rr.^.n j er « - • noo.-er«r ■ • r a - n ° " 

End If 
Next iLoopi 

pnlDispiay. Caption - "Finished processing at " & Time 
pnlPercentCcmpiete . FloocPercent - 0 
procCount% = 0 
nuinSelected% = 0 
Filel . Re f re sr. 
End Sub 

Private Suo Dirl_Change i J 
Filel. Path « Dirl.Path 

End Sub 

Private Sub Drive l_Change ( ) 
On Error Resume Next 
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frmOCR - 2 

Dirl.Path = Drivel. Drive 
End Sub 

Private Sub Fcrrr._Load ( ) 
On Error Resume Next 
Tod - 100 

Left - Screen .Width - frmOCR. Width - ICO 
Call infoGet 

x% = Shell (programPathS , 4) 
frmOCR. Show 
Dirl.Path « "C:V 
End Sub 

Private Sub F crrr.J'.ouseMove { Button As Integer, Shift As Integer, x As Single, y As Single) 
x « 1 

y - i 

End Sub 

Private Sun inf oGet { ) 

On Error GoTo iniError 

Open "lukesccr . ir.i " For Input As #1 

Line Inout fcl, procramCaptionS * Get complete line. 
Line Inout =1, programPathS ' Get complete line. 
Close #1 
Exit Sub 

i r.i Error : . . ( „ 

MsgBox "Error retrieving information frcm ' lukesocr . mi 
Er.d Sub 

Private Sub mouseriome ( ; 

* need a routine to move mouse pointer to bottom corner 

' of the screen so that WordScan title bar doesn't change 

' if it does V3 program can't recognize WordScan program 

* SetCursorPcs Screen . Width, Screen . Height 
End Sub 

Private Sub Process <) 

AppActivate programCaptionS 

x% - Shell (programPathS £ M " & FNameS, 4} 

Call mouseHcme 

SendKeys True ' ALT F 

SendKeys "?.", True ' R 

SendKeys "A", True ' A 

test% «= 0 

Do While test* ** 0 
x% « DcEvents ( ) 

test% - FindWindow ( 0i , "Save As") 
Loop 

SendKeys -ccFKameS 
SendKeys "'Enter}" 
test% = 0 
Call mouseHcme 

:*;*ndKeys "■Enter. 1 " * to overwrite if fiie sireacy exists 
Do While test% = 0 
x% - DoEvents() 

test% ° FindWindow (C& , prograntCapt ionS ) 
Loop 

AppActivate "Luke's Automated OCR' in? Utility" 
End Sub 
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frmDepoView - 1 

Option Explicit 
Deflnt A-Z 
• ' ' arrays 

Dim page ( ) As Long 

Dim finds () As Integer 

• 1 'long 

Dim position& 

• 1 1 integers 

Dim pageNumber% 
Dim numOfPages% 
Dim startPosition% 
Dim f% 

Dim fouadcountl 
Dim FirstPageEOPMarker% 
Dim iPageNumShown% 
* • ' strings 

Dim pathOfDepos$ 
Dim fileSource$ 
Dim ^zpLocationsS 
Dim new_Line$ 
Dim endOfPageS 
Dim search$ 
Dim temp$ 

Dim nameOf Deposed$ 

Private Sub buttonReset { ) 
On Error Resume Next 
* reset page number buttons 
Select Case pageNumber% 
Case 0 1 no pages loaded 

cmdPagePrev . Enabled = False 
cmdPageFirst . Enabled « False 
cmdPageNext . Enabled = False 
cmdPageLast .Enabled « False 
Case 1 ' first page 

cmdPagePrev . Enabled « False 
cmdPageFirst . Enabled ~ False 
cmdPageNext .Enabled = True 
cmdPageLast .Enabled = True 
Case numOfPages ' last page 
cmdPagePrev. Enabled « True 
cmdPageFirst .Enabled = True 
cmdPageNext .Enabled « False 
cmdPageLast . Enabled = False 
Case Else 1 all other pages 

cmdPagePrev. Enabled = True 
cmdPageFirst .Enabled = True 
cmdPageNext .Enabled - True 
cmdPageLast .Enabled « True 
End Select 

Select Case numOfPages% * if only one page 
Case 1 

cmdPageNext .Enabled « False 
cmdPageLast . Enabled = False 
End Select 

' reset find word buttons 

Select Case foundcount% 

Case 0 1 no words found 

cmdWordPrev. Enabled ~ False 

cmdWordFirst . Enabled = False 

cmdWordNext .Enabled « False 

cmdWordLast .Enabled = False 
Case i 1 only 1 occurance of word 

cmdWordPrev. Enabled - False 

cmdWordFirst . Enabled « False 

cmdWordNext .Enabled = False 

cmdWordLast .Enabled « False 
Case Else • more than one occurance 

Select Case finds (f%) 
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frmDepoView - 2 

Case finds (li 1 first occurance of word 

cmaWordPrev . Enabled - False 

cmdWordFirst . Enabled = False 

cmdWcrdNext . Enabled » True 

cmdWorcLast .Enabled - True 
Case finds (founacount%) ' last occurance of word 

cmdWordPrev . Enabled - True 

cmdWordFirst -Enabled = True 

cmdWordNexz . Enabled = False 

cmdWordLast .Enabled = False 
Case Else 1 ail ether words 

cmdWordPre v. Enabled « True 

cmdWordFirst .Enabled = True 

cmdKordNext .Enabled - True 

cmdWordLast . Enabled = True 
End Select 

End Select . 
' reset word buttons if no depo is -oadea 
Select Case fiieSourceS 
Case " H 

cmdCopy . Enabled = Faise 

cmdWordFind. Enabled « False 

cmdWordPrev. Enabled ** False 

cmdWordFirst . Enabled « False 

cmdWordNext . Enabled = False 

cmdWcrdi-ast . Enabled « False 
Case Else 

cmdCcpy. Enabled = True 

cmdWordFir.d.Enabiec « True 
End Select 
End Sub 

Private Sub cr.dCopy_Ciick ( ) 

Dim cbDe?cInfo*S n3 n^^P« OS ec5 & oaoe = " £ iPaaeNurr.Shownt 0 new 

cbDepoInfcS = "From tne oeposition c: & nemeOf -e-osec» - , 

_Line$ 

"ipboarlse^L-. n.w_Lin.S i cbO.poInfoS * «sCopy?as--..S.lTex-- i n .w_Lin.S 

End Sub 

private Sub c:r,d?aceFirst_Ciick ( ) 

On Error Resume Next 

pageNun-jDer t = 1 

Call pageDispiay 
End Sub 

Private Sub c-aPaceLas t_Click { ) 

On Error Resume Next 

pageNurr.r>er ? = r.urr.Of Pagesi 

Call paceDispiay 
End Sub 

On Error Resume Next 
pageNumber% = pageNumber% + 1 
Call pageDispiay 
End Sub 

Private Sub crr.dPagePrev^Click ( ) 

On Err cr Resurr.e Next 

pageNumber *. = pageNumber% - 1 

Call pageDispiay 
End Sub 

Private Sub cmdWordFir.d__Click { ) 
On Errcr P.esur.e Next 
Dim pageDispiayed% 
pageDispiayed? » pageNumber% 
pctDisplay. Visible «• True 
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rmDepoView - 3 

searchS = InputBoxS { "Please enter the word you wish to search for.", "Word Search", 
If searchS = " Then ExiL Sub 
' reset variables 
f % - 0 

foundcount% = 0 
Call wordFind 
If f% < 1 Then 

pageNumbert = pageDisplayed% 

Msg5ox "The word • " & searchS & " ' was r.ct found.", C , "Not :ounc. " 
Exit Sub 
End If 

pageNumber% *= finds if\) 
Call pageDisplay 



Private Sub cmdWordFirs t_Click ( ) 
On Error Resume Next 
f% - I 

pageNumber* » finds t£%) 
Call pageDisplay 
E-d Sub 



Private Sub cmdWorcLast_Click ( ) 

On Error Resume Next 

f% ~ rounscountt 

pageNumbert = finds (z\) 

Call pageDisplay 
End Sub 



Private Sub cndWordNext_C lick ( ) 
On Error Resume Next 
£%-£%+! 

pageNumberi - finds (f*) 
Call pageDisplay 
End Sub 



Private Sub cmdWorcPrev_CIick ( ) 
On Error Resune Next 
f% - f% - 1 

pageNumber* ~ rinds (f%) 
Call pageDisuiay 
End Sub 



Private Sub ceposedName ) 
Dim firstPageS 
Dim posMarker% 
Dim posEOLl* 
Dim posEOL2% 
Dim posEOL3* 
tempS = "" 

Ooen fileSourceS For Binary Access Read ? 1 
Seek nl , 1 

rirstP=ge5 Inputs *C*P£, 1* 
Close SI 

posKarker% = InStr ( 1 , f irstPageS, "deposition of", 1) 
posEOLl% = InStr (posttarker% , iirstPageS, new_Line$) 
posE0L2% = Ir.Str (posEOLl% + 1 , z irstPageS , new_LineS ) 
posE0L3% « InStr (posEOL2% * I , t irstPageS , r.ew_Line5 ) 

temps = Mid$ ( f irstPaceS, (posKarkerfe A 12., ;posEOLl* - Jposttsrkeri - 13)): 
If Len (Trim ( tempS ) ) > 3 Then 

nameOf DeoosedS = f nMakeAlcr.a { z emoS ) 
Else 

tempS « MidS ( f irstPage$, pcsEOLll , {pcsEGL2^ - pcsEOLil ) ) 
nameOf DeposedS = f nMakeAlpha ( tempS ) 
If Trim (nameOf DeposedS) =* "" Then 

tempS « MidS i'z irstPageS , posEOL2% , ;posEOL3% - ?osEOL2%)) 

nameOf DeoosedS = f nMakeAloha ( tempS ; 
End If 
End If 
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frmDepoView - 4 

nameOf DeposedS = Trim (nameOf Deposed? ) 
EnU Sub 

Private Sub riepoSelect ( ) 
On Error Resume Next 

frmDepoView. Dialoouel .CanceiErrcr = False 
frmDepoView. Dialoguel.DialogTitle = "Open Deposition 
frmDeooView.Dialoauel. Flags « OFW_KI DEREADONLY 
frmDeDoView.Dialoguel.InitDir = pathOfDeposS 
frmDepoView. Diaioguel. Filter = "Ail files (*.*>!*. 
frmDepoView. Diaioguel . Filterlndex = 1 
frmDepoView. Dialogue! .Action = 1 
fileSourceS « frmDepoView . Dialogue 1 . filename 
End Sub 

Private Sub determineFormat ( ) 
On Error Resume Next 
Dim charS 
Dim po s Found* 

Open fileSourceS For Binary Access Reaa As nl 
charS « Inputs (5120, 1) 
Close SI 

posFound% - InStr (charS, endCrPageS) 
If posFoundi - 0 Then 

Call pagePositionsAmicus 

Else 

Call pacePcsitionsAscii 
End If 
End Sub 

Private Function f nGetFirstLine (pageOf Text As String) As String 
Dim eolPos% 
Dim sFirstLineOfTextS 

eolPos% « Ir.Str (DaaeOf Text , new_Line$) 
sFirstLineOfTextS - MidS (pageOf Text . i, eolPos%> 
fnGetFirstLine -» sFirstLineOfTextS 
End Function 

Private Function fnGetLastLine (pageOf Text As String) As String 
Dim eolPos% 

'remove list eoi marker 

caaeO^TextS « r'.idS (caaeOf TextS, 1, (Len (pageOf TextS ) - 2)) 
"'remove ail otner eci markers & whittle down pageOiText 
Do While Ir.Str (pageOfTextS, new__LineS) 

eolPost = Ir.Str (pageOfText , new_LineS) 

pageOfTextS = MidS (pageOf Text , eoiPos% + 11 
Loop 

fnGetLastLine «= pageOfTextS 
End Function 

Private Function fnMakeAipha ( first PageOf Depo As String) As String 
Dim charS 

Dim iloop% 

For iloop* » 1 To Len ( f irstPageOf DepoS) 

charS = KidS ( first PageOf DepoS , iloop%, 1) 

Select Case A.sc(charS) 

Case 32, 65 To 90, 57 To 122 

alphas « alphas & charS 
End Select 
Next Hoop's 
fr.KakcAlpr.2 - alphas 
End Function 

Private Function f nMakeNumeric (alphaNumeric As String) As Integer 
Dim charS 
Dim numeric% 
Dim iloop% 

For iloop% - 1 To Len (alphaNumericS) 
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z rmDepoView - 5 

charS - MidS (alphaNumericS , iloop%, 1) 
Select Case Asc(charS) 
Case 48 To 57 

numeric* *= numeric! & Clnt(charS) 
End Select 
Next iloop% 

fnMakeNuneric « numeric^ 
End Function 



Private Sub Form_Load() 
On Error Resume Next 

f rmDepoView. Left = (Screen . Width - f rmDepoView. Width) / 2 
f rmDepoView. Top « ( Screen . Height - f rmDepoView . Height ) / 2 
Call buttonReset 
Call screenSize 
pathOfDeposS =» Commands 
If pathOfDeposS = MM Then 

DathOfDeposS = App.Path 
Else 

* he^e we want code to reDlace images/ with depos/ 

pathOfDeposS - Lef t$ (pathbf DeposS, (InStrU, pathOf DeposS , "Images", 1) - 1)) & "Depos\ M 
End* If 

endOfPageS = ChrS(12) 
new_LineS ■= ChrS (12) 
End Sub 



Private Sub Form_Aesize ( ) 

Call screenSize 
Er.d Sub 



Private Sub getPageNumcer ( ) 
On Error Resume Next 
Dim iValidSearch% 
Dim i First Line% 
Dim iLastLine% 
Dim errCode% 
Dim sFirstLineS 
Dim sLastLineS 
Dim pageFromDepoS 

pageFromDepoS = txtCcpyPaste . Tc?:t 
errforifi* *» 0 

sFirstLineS = f nGet FirstLine (pageFromDepoS) 
sLastLineS - fnGetLastLine (pageFromDepoS ) 
iFirstLine% = f nMakeNumeric (sFirstLineS) 
iLastLineS « f nMakeNumeric (sLastLineS ) 

' check for page numbers with word 'page' eg "Page 148 
iValidSearch*% = InStrd, sFirstLineS, "page", 1) 
If iValidSearch% > 0 Then 
If iFirstLine% > 0 Then 

iFageNumShown* - iFirstLine% 
Exit Sub 
End If 
End If 

iValidSearch% - InStrd, sLastLineS, "page", 1) 
If iValicSearch% > C Then 
If iLastLine% > 0 Then 

iPageNumShowni « iLastLine% 
Exit Sub 
End If 
End If 

' check for amicus style number eg "00148" 
On Error GoTo arr.icusLastLine 
Select Case Len (Trim (sFirstLineS ) ) 
Case 4, 5 

iPageNumShowni = CInt (Trim ( sFirstLineS ) ) 

Exit Sub 
End Select 
amicusLastLine : 

On Error GoTo gene r i c Number 
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Select Case Len (Trim (sLastLine$ ) ) 

iPageNumShown% - CInt (Trim (sLastLineS) ) 
Exit Sub 

End Select , 
genericNumber: * check for generic numoer eg 14B 
On Error Resume Next 
Select Case Len (Trim { sFirstLir.eS ) ) 
Case 1* 2, 3 

If iFirstLine% > 0 Then 

iPageNumShown* = irirstLine% 
Exit Sub 
End If 
End Select 

Select Case Len (Trim ( sLastLineS) ) 
Case 1, 2, 3 

If iLastLine% > C Then 

iPageNu-Shownt a iLastLineS 
Exit Sub 
End If 
End Select 
iPageNumShown% - 0 
Er.d Sub 

Private Sub :r.nuEditCopy_Click ( ) 

cmdCopy__Click 
End Sub 

Private Sub mr.uEdit Fir.d^Click ( ) 

cmdWorcFind_Click 
Zr.d Sub 

Private Sub mr.uFileExit_Click ( ) 

End 
Er.d Sub 

Private Sub ir.r.uFileOpen_Click ( ) 
On Error Resurr.e Next 
'reset a few variables 
pageNumber% - 1 
search* - 

pctDispiay. Visible = True 

Call depoSelect „„ _ . c . 

If frmDepoView.Diaioguel . filename » Tner. Exu Sld 
'Call det ermine Format 

Call pagePositionsAscii 'cr pagePosi* icns^icus 
Call pageLocations 
Call deposedName 
Call pageDispiay 
Er.d Sub 

Private Sub mnuFilePrir.t_Click ( ) 
On Error Resume Next 
Dim x% 
Dim posi 
Dim EOPMarkerfc 
Dim pageListlS 
Dim found* 
Dim currentLineS 
Dim pageListlTrin$ 
Printer . FcntSoid « True 
Printer . FcntSize « 12 
Printer . FontName » "Courier" 
Printer . Fcr.tSize - 12 

For x% - 1 To numOfPages% . D _ . ^-r 0 - »--nt " " 

P-inte- *r^r- Pr< nter . Print " * Printer . Print : Print er .?- -nt 

Prlni " -I Prlnler. Print " Printer. Print " Printer . Print 

pageNunber^ = x% 
DOS& «= 1 
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frnDepoView - 1 ; 

If pageNumber% - 1 Then 

Jf F ; - rr.r.PageEOPMarker* = 1 Then pos& = 2 
Else 

oos& » Dage ( pageNumber - 1) + 1 
End* If 

EOPMarkerfi = page {pageNumber% ) 

Open fileSourceS For Binary Access Read As si 
Seek SI, post 

pageListlS = Inputs ( { EOPXarker i - pos&>, 1) 
Close #1 

Do While Ler. ( pageList 15 ) <> 0 

found% = InStr ipageList IS , new_LineS ) 
currentLineS = i-!idS (pageList IS , 1, (founds - 1 ) ) 
If Trim (currentLineS) <> " ** Then 

DageListlTrimS « paceListiTrimS 6 currentLineS « ChrS(12i & ChrS{10) 
End' If 

pageListlS = KidS (pageList IS , (founc% + 2)) 
Loop 

Prir.tej. . ?i i:;t pag-elist !Trirr.S 
Printer . NewPage 
pageListiTrimS = 
Next x% 

Printer . EndDoc 
End Sub 

Private Sub mnuFiiePrir. z e rCor.densed__Click ( ) 
On Error Resume Next 
Dim x% 
Dim post 
Dim EOPMarkerfi, 
Dim pageListlS 
Dim found% 
Dim currentLineS 
Dim pageList ITrimS 
Dim LiPrintPosX* 
Dim liPrintPcsYS. 
Dim liOuacrant* 
liQuadrant* = 1 
Printer . FcntBoic = True 
Printer. Fonts i ze = " 
Printer . FcntN^.e = "Courier" 
Printer. Fc ntSize = 
For x% - I To r.urr.Of Pages t 

pageNumber% - x t 

pos& = I 

If pageNurnber* = 1 Then 

If First PageEOPMarkert « 1 Then pos& = 2 
Else 

post = page t pace^umber - - ; 1 
End* If 

EOPMarker& » pace t cageNumber % ) 

Open fiieSourceS Fcr Binary Access Read As sl 

Seek tl, pos& 

pageListlS = Input $ i (EOPMarJisri - posi), 1) 
Close w 1 

If liQuadrant% = 1 Then 

liPrintPosX* « 0 

XiPrintPosY* * 0 

liQuaarar.t% « 2 
Elself liOuaarant * = 2 Then 

liPrintPosX* - 0 

liPrintPosYr = Printer . ScaleHeight / 2 

liCuacrar.t% = j 
Elself LiQuaarant* « 3 Then 

liPrintPosXV = Printer . ScaleWicth / 2 

liPrint?osY% = 0 

liQuadrant* = < 
Elself liQuaaranr* *» 4 Then 

liPrintPosXt - Printer . ScaleWidth / 2 
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: r.T.DepoView - 5 

liPrintPosY* = Printer . ScaleHeicht / 2 
liQuaarant% « 1 
End If 



it »t 



cht) 
/ 2)) 



Printer. Current* = iiPrintPosY* 
Printer. Print " " : Printer . Print 
Do While Ler. (pageListlS) <> 0 

found* - Xr.Str (pageListlS, new_LineS)_ 
currentLineS = KidS (pageListlS , 1, ;round% - 1/) 

I* Trim (currentLineS) <> '*" Then r-w^ m ^ a *-~~sti*\ 

^aaeListlTrinS - pageList ITrimS fi currentLineS & ChrS(lj) * S < 1 - , 

Printer .Current* = HPrir.tPosX% 
Printer . Print currentLineS & new_LineS; 
^ nd I f 

pageListlS - MidS (pageListlS, (found- +2)) 
Loop 

pageListlTri-S = "" 

If >:% Mod 4 - 0 Then . — .S;":eV)i^" / .. Printer CcaieKe 
Printer. Line (( Printer . Scalerfic:.-. / <- ) , *>-(•,--- e 

Printer. Line (0, ( Printer . ScaieHeight / 2 )}-( Printer . ScaleWidth, ( Printer . ScaleKeicht 



Printer . NewPage 
End If 
Next x% 

Printer . EndDoc 
Ir.d Sub 

Private Sub mnuFile?rinterSetup_CIick < ) 
Dim CanceiFiag As Integer 

CancelFlag = True 
On Error Resurr.e Next 
Dialoauel .CanceiErrcr » True 
Dialoguel. Flags = ?D_PRINTSETU? 
Dialoguel .Action = 3 
If (Err «= 0) Then ' 

CancelFlag = False 
End If o w 

If (CancelFlag = True) Then Exit Sub 

End Sub 

Private Sub ir.nuHeipAr>out_Click ( ) 
Load frmAbout 
frmAbout . Show 
End Sub 

Private Sub pageDispiay ( ) 
On Error Resur.e Next 
Dim found* 
Dir. posi 

Dim currentLineS 
Dim EOPMartceri 
Dim pageListlS 
Dim pageListlTrimS 
posfi. « 1 

If paaeNumber* = 1 Then 

If 'FirstPageEOPMarker% » 1 Then pos& « 2 
Else 

i.-os4 = page ipageNunber - 1) - 
End" If 

EOPMarker& = page ( cageNumber% ) 
pctDispxay . Cls 
txtCopyPaste .Clear 

Open fileScurceS Fcr Binary Access Read As 
Seek si, posi 
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: r-DepoView - 9 

oageListlS - Ir.putS ( (EOPMa-Ker& - pos&>, 1) 
Close *1 

Do While LentpaoeListlS) <> 0 

found* - InStr (pageListlS, new_Lme$) 
currentLmeS - i*:idS ipageList 1 S , 1, (rour.c% - i)# 
If TnrMcurrer.tLineS) <> Then 
If searcr.S » " M Then 

^etH^ri^i SSESSL* I curr.r.cLir..S . ChrS.12, i C^S.IO. 

El *S.c.Li S tlTrir.S - p.,eLi St lTri«S S curr.ntLir.eS * ChrS,!-'. i ChrS(lO) 
-**T-c t -r' currentLineS , searchS, i; Then 

•* p«oli;i.yVlrint HidS (currentLineS, i. (InStrd. eurreireLineS. search!. *i> - x); 

pctDisolay . ForeColor *» &KFF 
pctDispiay. Print MidS ( current LineS 

cctDisciay. ForeColor - 6K0 ' black _ ^. c , . 

pctDispiay. Print MidS t currentLineS , ;<InStr-::. currer.^ineS, searcnS. x;l ^.en(5 



W^. U i» f ( 

?«S:!?i?^°?:^^ -rren.lineS, search*, 1,), Lenlsea 



rchS) > ; 
earchS ) ) ) 



Jllse 

pctDispiay. Print current Line 5 
End* I: 
End If 
End If 

pageListlS - MicS (pageList IS , {found% + 2)) 
Loop 

txtCoovPaste . Te:<t » pageList ITnmS 

If InStr itxtCopyPaste.Text, searcr.S, 1) Then 

octScroil. Visible «= True 

txtCcpyPaste . Visible » false 
Else 

pctEcrcll .Visible = False 
txtCc=v?as-5 .Visible = True 
End If 

If searcr.S = Then 



pctScroli .Visible 



False 



cxtCopyPaste . Visible = True 
End If 

Call but tonnes et 

Call getPage-unber „ aM r,^n eDO sedS £ " ?aoe S " i iPaaeNuir.Shown% 

Me. Caption « "Deposition of & naneOf Deoosecs * 

Er.d Sub 

Private Sub pageLocaticns {) 
Dim x% 
Din founds 

ReDim caged To numCf Pages* > 
x% - 1 

Do While Len ( eopLccat icnsS ) > 0 

found* = ir.Str tecpLocationsS , " "I 
If fcur.oi <> 0 Then 

page(xi! - Ir.t I Mid (eopLocationsS, 1, found*)) 
eooLocationsS = MidS { eopLocat ionsS , :fcund% * D) 
x% ■» X% f 1 
Else 

Exit Do 
End If 
Loop 
End Sub 

Private Sub DaaePcsiticr.sAmicus { ) - _ „_ ^ 

sgBox "Currently usupported file format.", tA, "Unsupported rorma.. 

xit Sub 

On Error Resume Next 
Dim first Pag eNumoer* 
Dim nextPaceNumber \ 
Dim arr.icusPageNunberS 
Dim tnr.CharS 
Dim charS 
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frmDepoView - 10 

• Dim :eros$ 
:eros$ « "OCOC" 
numOfPages% = 0 

Open fileSourceS Fcr Input As #1 
Line Input #1, charS 
trimCharS = Trim{char$) 

• f irstPageNumber% = CInt { trimCharS ) 
Close $1 

• * loop 

nextPageNumber% = ne>:t PageNumber% + 1 

amicusPageNumberS - Rights ( (zerosS & CStr ( next PageNumber* ) ) , 4) 
' 'search for amicusPageNumber 

Open fileSourceS For Binary Access Read As #1 

• Do Until EOF(l) ' find the number of end of page markers 

charS - Input$ (32768, 1) 

• posFoundt « InStr (charS, amicusPageNumberS) 

• If posFoundS. <> 0 Then 

' numGf Pages'*. — numOf Page^i + 1 

eopLocationsS = eopLocationsS & (of f set Positions + posFound%) & " '* 
End If 

of f set Positions = of f setPosition& + 32768 
1 Loop 

Close #1 



Seek til, 1 ' make adjustment if 1st page starts with EOP marker 
If Inputs (1, 1) = endOf PageS Then 

numOfPages% = numOfPages% - 1 

eopLocationsS = MidS (eopLocationsS , 3) 

FirstPageEOPMarker% = 1* if first page starts with an EOP marker 
End If 

Seek #1, LOF(l) ' make adjustment if last page has no EOF 
If Inputs (1, 1) <> endOf PageS Then 
numOfPages% = numOf?ages% + 1 

eopLocationsS = eopLocationsS & FileLen ( f ileSourceS } & " " 
End If 



' t-Se. Caption = Me. Caption & " " & numOfPages% 
End Sub 

Private Sub pagePos it ionsAscii ( ) 
On Error Resume Next 
Dim charS 
Dim posFound* 
Dim of f setPosition& 
Dim lastChar Position*. 
numOfPages% *> 0 
FirstPageEOPMarker% « 0 

1 ~ Char posit on* » pT lPn ipq ol ,ro B S) 

Open fileSourceS For Binary Access Read As SI 

Do Until EOF(l) ' find the number of end of page markers 

charS = Inputs (128, 1) 
posFound% = InStr (char$, endOf PageS) 
if pos Founds <> 0 Then 

numOfPages% - numOfPages% + 1 

eopLocationsS = eopLocationsS & (of f set Position* + posFound%) & " " 
End If 

of f serPosi tionfir - of f setPosition* + 123 
Loop 

Seek #1, 1 1 make adjustment if 1st page starts with EOP marker 
If Inputs (1, 1) = endOfPageS Then 

numOfPages% = numOfPages% - 1 

eopLocationsS = MidS ( eopLocationsS , 3) 

Fi"rstPageEO?Marker% = 1 ' if first page starts with an EOP marker 
End If 
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rrxnDepoView - 11 

Seek #1, LOF(l) ' make acyastment if last page has no EOF 
Tf Input? (1; 1) <> endOfPage$ Then 
numOfPages% - numOfPages% + 1 

eopLocationsS * eopLocationsS & FileLen ( f ileSource$ ) & " " 
End If 
Close *1 
End Sub 

Private Sub pet Di splay_Click { ) 

txtCopyPaste . Visible = True 

pctScroll .Visible * False 

txtCopyPaste . SetFocus 
End Sub 

Private Sub screenSizeU 
On Error Resume Next 

pctScroll . Top = cmdWordPrev . Height + cmdWordPrev . Top + 10 
pctScroll. Left « 10 

pi-r Scroll . Wi z.th - f rmDepoView . ScaleWidth - 50 

pctScroll . Height = f rmDepoView . ScaleHeight - cmdPagePrev . Height - 50 
VScrolll. Top « 0 

VScrolll . Lef t = pctScroll . Width - VScrolll . Width 

VScrolll . Height = pctScroll . Height 

VScrolll. Max = 100 

VScrolll . LargeChange = 33 

VScrolll .SmallChange » 16 

pctDisplay . Top -= 0 

pctDisplay . Lef t = 0 

pctDisplay. Width «= pctScroll . Width - VScroll 1 . Width - 40 
pctDisplay . Height = Screen . Height * 2 
txtCopyPaste . Top = pctScroll . Top 
txtCopyPaste. Left = pctScroll . Lef t 
txtCopyPaste .Width = pctScroll . Width 
txtCopyPaste . Height = pctScroll . Height 
End Sub 

Private Sub VScroll l_Change ( ) 

• pctDisplay . Top = -VScroll 1 . Value 

pctDisplay . Top = - (VScroll 1 . Value / 100) * ScaleHeight 
End Sub 

Private Sub wordFindO 
On Error Resume Next 
Dim x% 

Dim last PageNumber% 
Dim found% 
Dim lineFromFileS 
Dim tempFinds$ 
lastPageNumber% « 0 
temp$ = " 

Open f ileSource$ For Input As #1 
If Inputs (1, 1) = endOf PageS Then 

pageNumber % = 0 
Else 

pageNumber % = 1 
End If 
Close #1 

Open fileSourceS For Input -As #1 
Do Until EOF(l) 

Line Input #1, lineFromFileS 

If InStr (lineFromFileS , endOf PageS) Then pageNumber% - pageNumber% + 1 
If InStrtl, lineFromFileS, searchS, 1) Then 
If pageNuiriDerfc <> last PageNumber% Then 
last PageNumber% * pageNumber% 
tempS - tempS f. pageNumber% & " " 
End If 
End If 
Loop 

Close #1 
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frmDepoView - 12 

tempFindsS = temp$ 

• determine the number of numbers in this string t>~en rediip *n array 
' to hold each individual number 

If temp$ = Then Exit Sub ' no match found 
found% = 0 

Do While Len(temp$) > 0 

found% = InStr(temp$, " ") 
If found% <> 0 Then 

foundcount% « foundcount% + 1 
temp$ - Mid$(temp$, (found* + 1)) 
Else 

Exit Do 
End If 
Loop 

• now extract each page # and put them into into the Finds ( ) array 
' use Finds () array to bounce around from page to page 

ReDim finds ( foundcount% + 1) 

temp$ = tempFinds$ 

For x% = 1 To foundcount% 

found% - InStr(temp$, " " ) 

finds (x%) = Int (Mid (temp$, 1, (found%))) 

temp$ = Mid$(temp$, ( f ound% + 1)) 
Next x% 
f% - 1 
End Sub 
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frmlntro - 1 

Option Explicit 
Deflnt A-Z 

Private Sub displayText ( ) 
FontSize =* 4 2 

frmlntro. CurrentX = 32: f rmlnt ro . CurrentY = 52 
ForeColor = QBColor(8) 
Print "Deposition Viewer" 

frmlntro. CurrentX = 30: frmlntro . CurrentY = 50 
ForeColor « QBColor(15) 
Print "Deposition Viewer" 

frmlntro. CurrentX = 31: f rmlnt ro . Current Y = 51 
ForeColor = QBColorf?) 
Print "Deposition Viewer" 



FontSize =» 21 

frmlntro. CurrentX = 82: frmlntro . CurrentY 
ForeColor - QBColor(8) 
Print "Copyright 1D9S, Lu).~ Scenes" 
frmlntro. CurrentX = 80: frmlntro . CurrentY 
ForeColor =» QBColor{15) 
Print "Copyright 1996, Luke Spence" 
frmlntro. CurrentX « 81: frmlntro . Current Y 
ForeColor = QBColorp) 
Print "Copyright 1996, Luke Spence" 
End Sub 

Private Sub exitSpalshScreen ( ) 

frmDepoView. Show 

frmlntro. Hide 

Unload frmlntro 
End Sub 

Private Sub Form_Click{) 

exitSpalshScreen 
End Sub 

Private Sub Form_KeyPress ( KeyAscii As Integer) 

exitSpalshScreen 
End Sub 

Private Sub Form_Load{) 

f rmlntro . Lef t = ( Screen . Width - frmlntro . Width ) / 2 
frmlntro. Top = { Screen . Height - frmlntro . Height ) / 2 
Load frmDepoView 

End Sub 

Private Sub Form_Paint() 

Call displayText 
End Sub 

Private Sub Timerl_Timer ( ) 

exi wScalshScreen 
End Sub 



= 302 
= 300 
= 301 
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frmCases - 1 

Option Explicit 
DeflPt ?.-Z 
Dim sNewCaseS 

Private Sub cmdAdd_Click ( ) 

pctAddCase.Top = IstCases.Top 

pctAddCase.Left = IstCases . Lef t 

IstCases .Visible » False 

pctAddCase .Visible = True 
End Sub 

Private Sub cmdCancelNames_Click ( ) 

IstCases .Visible = True 

pctAddCase . Visible = False 
End Sub 

Private Sub cmdOK_Click ( ) 

sNewCase$ « txtClient . Text & "/" & txtMa tter . Text 

lstCaccs. add I tern sN^;;Case$ 

IstCases . Visible - True 

pctAddCase .Visible «= False 
End* Sub 

Private Sub Form_Load ( ) 

frmCases .Lef t = (Screen .Width - frmCases . Width) / 2 
frmCases. Top « (Screen . Height - frmCases . Height ) / 2 
Dim sCaseInput$ 
Dim sCaseName? 
Dim sCasePath$ 
Dim sFileName$ 

sFileName$ « App.Path & "cases. inf" 
sFileNameS = "C:\vb30\cases.inf" 
Open sFileName$ For Input As #1 
Do Until EOF(l) 

Line Input £1, sCaseInput$ 

sCaseNameS = Mid$ ( sCaselnputS , 1, InStr (sCaseInput$, ) - 1) 

IstCases .Addltem sCaseName$ 
Loop 

Close #1 
End Sub 
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frmBrowse - 1 

Option Explicit 

Deflnt A-2 

Dim sDirectoryPathS 

Private Sub cmdCancei_Click { ) 

Call f rmBrowseQuit 
End Sub 

Private Sub cmdOK_Click ( ) 

•code to send back the selected directory name 

frmDepoView. Caption « sDirectoryPath$ 

Call f rmBrowseQuit 
End Sub 

Private Sub Dirl__Change { ) 

sDirectoryPath$ - dirl-Path 
End Sub 

Private Sub Dri vel_Change ( ) 

On Error Resume Next 

dirl.Path « Drivel. Drive 
End Sub 

Private Sub Form_Load() 

frmBrowse .Lef t « ( Screen . Width - frmBrowse . Width ) / 2 
f rmBrowse . Top = (Screen . Height - frmBrowse . Height ) / 2 
dirl.Path « "\" 

End Sub 

Private Sub f rmBrowseQuit ( ) 

frmBrowse . Hide 

Unload frmBrowse 
End Sub 
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frmAbout - 1 

Option Explicit 
Deflnt A-Z 

Private Sub cmdOK_Click ( ) 

frmAbout .Hide 

Unload frmAbout 
End Sub 

frmAbout .Width) / 2 
frmAbout .Height) / 2 



Private Sub Form_Load() 

frmAbout .Left = (Screen .Width - 
frmAbout. Top = ( Screen . Height - 
ScaleMode « 3 

End Sub 
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Forml - 1 

• Copyriaht (C) 1995,1996, 1997 Tempest Software 

• Last modified on 05/02/97 

Option Explicit 
Deflnt A-2 

Dim cancelButton% 
Dim totalFiles% 
Dim totalProcessed% 
Dim percentDone% 
Dim x% 

Dim numOf Files* 
Dim fileToGetS 

Private Sub cmdCancel_Click ( ) 

cancelButton* - True 

Filel. Refresh 
End Sub 

Private Sub cmdClose_Click ( ) 

End 
End Sub 

Private Sub cmdPrint_Click { ) 
On Error GoTo printError 
Dim startPosi 
Dim endPos & 
Dim filePathS 
Dim fileNameS 
Dim allFilesToPrintS 
Dim 1% 

Dim tiffPages% 
cancelButton% - False 
total Processed* - 0 
totalFiles% - 0 
startPos - 1 

If Filel . fileName - " M Then *If no file selected, display message & abort 

MsgBox "Please choose a file.", 0, "No file selected." 

Exit Sub 
End If 

If Right (Filel. Path, 1) - "\" Then 

filePath = Filel. Path 
Else 

filePath = Filel. Path & M \" 
End If 

numOfFiles% - Filel . ListCount ' determine number of files for percent display 
For x% ■= 0 To numOfFiles% - 1 
If Filel. Selected(x%) Then 

totalFiles% = totalFiles% + 1 

allFilesToPrintS = allFilesToPrintS & Filel . List ( x) & " " 
End If 
Next x% 

Call buttonDisable 

Z'j iJiiLii i> Lar tPoii >- I**.;* C*llFilesTorx"ir*k 3 ) 

endPos - InStr (startPos, allFilesToPrintS, " n ) 

fileNameS MidS (allFilesToPrintS , startPosi, endPosfi. - startPosfc) 

startPos »= endPos + 1 

fileToGetS - filePathS & fileNameS 

ImageManl . Picture = fileToGetS 

tif f Pages% = ImageManl . Pages 

totalProcessed% - totalProcessed% + 1 

percentDone* - totalProcessed% / totalFiles% * 100 

IblDocsDo.- z . Ccpr.icr. * "Printing document " & tot ^1 Processed* & " of " l tctclFiles* & ". [" 
& percentDone* &**%)" 

Printer . Print 
Printer . Print ,,M 
Printer . FontBold = True 
Printer . FontSize = 50 
Printer . Print fileNameS 
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Forml - 2 

Printer . Print tiff Pages u " page(s) w 

• Printer .Line (0, 0 )-( Printer . ScaleWidth, C} 

Printer . NewPage 

For 1% - 0 To tiffPages% - 1 
Printer . Print ,,M 
Printer . ScaleMode « vbTwips 
ImageManl . PrnHdc = Printer. hDC 
ImageManl . DstLef t « 0 
ImageManl . DstTcp = 0 

ImaaeManl.DstRight = Printer . ScaleWidth 
ImageManl .DstBottom = Printer . ScaleHeight 
ImageManl . PageNumber - 1% 
ImageManl . Refresh 

percentDone% « (1% + 1) / (tiffPages% + 1) * 100 

IblPagesDone. Caption = "Printing page ** & 1% + 1 & " of " & tiffPages% & ". { " & percentD 

one% U "%)" 

DoEvents 

ImageManl . Printlmage 

Printer .NewPage 

DoEvents 
Next 1% 

Printer . EndDoc 
DoEvents 

If cancelButton% - True Then 

cancelButton% = False 'reset the cancel button 

Call buttonEnable 

Filel . Refresh 

Printer . EndDoc 

Printer . KillDoc 

ImageManl . Picture = 

• pnlPagesDone . FloodPercent *» 0 ' reset the bar 
•pnlPercentDone . FloodPercent -» 0 • reset the bar 
lblDocsDone -Caption » 
IblPagesDone -Caption = 
Exit Do 
End If 
Loop 

ImageManl . Picture = MM 
•pnlPercentDone . FloodPercent « 0 
IblDcc^Done . Caption « "" 
IblPagesDone. Caption ~ " M 
Call buttonEnable 
Filel . Refresh 
Exit Sub 

printError: 

MsgBox "Error *S " & Str (Err . Number ) L n was generated." & Chr(13) L Err . Description. , Error 
, Err . HelpFile, Err . HelpContext 

Resume Next 
End Sub 



Private Sub Dirl_Change ( ) 
Filel. Path = Dirl.Parh 
End Sub 

Private Sub Drivel_Change ( ) 
On Error Resume Next 
Dirl.Path = Drivel. Drive 

End Sub 



Private Sub Form_Load() 

Me. Left = ( Screen . Width - Me. Width) / 2 

Ke.Top ~ (Screen. Height - Me. Height) / 3 

Cn Error Resume Next 

cancelButtonfc = False 
End Sub 
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Forml - 3 



Public Sub buttonDisable ( ) 
Filel. Enabled » False 
Dirl. Enabled = False 
Drivel. Enabled « False 
cmdPrint. Enabled = False 
cmdClose. Enabled = False 

End Sub 

Public Sub buttonEnable ( ) 
Filel. Enabled - True 
Dirl. Enabled « True 
Drivel . Enabled « True 
cmdPrint .Enabled « True 
cmdClose. Enabled - True 

End Sub 
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Paper Chaser Table Structure 



Court Information 
Disk Names 
Document Info 
List of Privileges 
Preferences 
Report Names 



BNSDOCID <WO 9818092A2 I > 



- 102- 



WO 98/18092 



Court Information 



Field Name 

Cause n 

Plaintiff 

Defendant 

Court 

County 

State 

Title of Pleading 



Data Type 

Text 

Text 

Text 

Text 

Text 

Text 

Text 



PCT/US97/18935 



Length 

250 
250 
250 
250 
250 
250 
250 
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Disk Names 

Field Name Data Type Length 

DiskNamc Text 50 

DOCN1 Text 50 

DOCN2 Text 50 
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Document Info 



Field Name 

Doc Number 
Entry Info 
Doc Date 
Beg Bates # 
End Bates # 
To 
From 
CC's 

Description 
Marked 
Offered 
Admitted 
Date 
Tag 1 
Tag 2 
Tag 3 
Tag 4 
Tag 5 
Tag 6 
Ta^7 



Data Type 

Text 

Text 

Date/Time 

Text 

Text 

Text 

Text 

Text 

MciiiG 

Text 
Text 
Text 
Text 
Text 
Text 
Text 
Text 
Text 
Text 
Text 



TagS 


Text 


Tag 9 


Text 


Tag 10 


Text 


Tag 11 


Text 


Tag 12 


Text 


Tag 13 


Text 


Tag 14 


Text 


Tag 15 


Text 


Tag 16 


Text 


Tag 17 


Text 


Tag 18 


Text 


Tag 19 


Text 


Tag 20 


Text 


Tag 21 


Text 


Tag 22 


Text 


Tag 23 


Text 


Tag 24 


Text 


Product 


Text 


Comments 


Memo 


Privilege Log 


Text 


Revised By 


Text 


Date Revised 


Date/Time 


Print 


Text 


Exhibit # 


Number 


Ext 


Text 


Order of Display 


Nurnber 


Disposition 


Text 



Length 

9 
12 

20 

20 

250 

250 

250 

64,000 

2 

2 

2 

20 



2 

2 
2 
2 
2 
2 
2 
2 
2 
2 

2 
2 

2 
2 
2 
2 
2 
2 



64,000 

25 

3 

20 

Long Integer (-2J47.4S3.64S to 2,147,433,647) 

Long Integer (-2,147.4>3,64S to 2,147,403,647) 
20 
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List of Privileges 

Field Name Data Type Length 

Privileges Text 25 



t 
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Preferences 



Field Name 

Case Name 

View Screen Message 

Field i 

Field 2 

Field 3 

Field 4 

Field 5 

Field 6 

Field 7 

Field 8 

Field 9 

Field 10 

Field 11 

Field 12 

Field 13 

Field 14 

Field 15 

Field 16 

Field 17 

Field 18 

Field 19 

Field 20 

Field 21 

Field 22 

Field 23 

Field 24 

ImaeePath 

lsysPaih 

DbPathl 



Data Type 



Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 

Text 



Length 



50 
50 
50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

50 

100 

lOu 

IOC 
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Report Names 



Field Name Data Type Length 

Report 1 Text 50 

Report 2 Text 50 

Report 3 Text 50 

Report 4 Text 50 

Report 5 Text 50 

Report 6 Text 50 

Report 7 Text 50 

Report 8 Text 50 

Report 9 Text 50 

Report 10 Text 50 

Report 1 1 Text 50 

Report 12 Text 50 

Report 13 Text 50 

Report 14 Text 50 

Report 15 Text 50 

Report 16 Text 50 

Report 17 Text 50 

Report 18 Text 50 

Report 19 Text 50 

Report 20 Text 50 

Report 21 Text 50 

Report 22 Text 50 

Report 24 Text 50 

Report 24 Text 50 
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frrAut ornate - 1 

'Autcmated Document Separator 
• Copyright: (c) 1996, Luke Spence 
Option Explicit 
Deilnt A-Z 

Private Declare Function GetPixel Lib "GDI " {ByVal hDC As Integer, ByVal x As Integer, ByVal Y A 
s Integer) As Long 
Dim lColori 
Din iX% 
Din-. iY% 

Dim sFilenameS 

Dim iPageCount% 

Dim iCurrentPage% 

Dim iNewFilesFilenameS 

Dim iNewFilePageCount% 

Dim iNewFileCurrentPage* 

Dim sValidDividerS 

Dim iFileNumber% 

Dim sNewFilenameS 

Private Sub cmdFileOpen_Click ( ) 
On Error GoTo errorLoad 

Dim iDocCount% ( 
iDocCount% - 0 

If txtDocNameNumber . Text = Then Exit Sub 
iFileNumber% = f rmAutomate . txt DocNameNumber . Text 
i Current Page % =» 0 

f rmAutomate . cdlFilename . filename = "*.tif M 

f rmAutomate . cdlFilename . InitDir = "c:\pictures\demo\" 

f rmAutomate . cdlFilename .Action = 1 

On Error Resume Next 

If f rmAutomate . cdlFilename - " * . t i f " Then Exit Sub 
Filel.Path = "c:\pictures\demo\" 
Filel -Visible - True 

f rmAutomate .TIFF. File « f rmAutomate . cdlFilename . filename 
Call pagesTotal 

f rmAutomate . lblNumOf Pages . Caption = "Number Of Pages: " & iPageCount% 
Do While iCurrentPage% < iPageCount% 
iCurrer.: Page % = iCurrentPage% + 1 

f rmAutomate . IblCurrent Page . Caption = "Current Page: " & iCurrent Page% 

Call imageDisplay 

Call examinePage 

r i lei . 3 e fresh 

DoEvents 

If sValidDividerS = "T" Then 

i Fi le Number % = iFileNumber* + 1 

iDocCount% = iDocCount% + 1 
Else 

Call writeTIF 
End If 
Loop 

iDocCount* = iDocCount% + 1 

'reset everything back to origins! status 

IbiCurrentPage . Caption » 

lblNumOf Pages . Caption = "" 

cxtDocNameNumber . Text 

txtDocNamePref ix . Text = 

c.r.dFileOpen . Enabled = False 

f rmAutomate . TIFF. File «= " " 

f rmAutomate . TIFF. Repaint « True 

XsgBox " " & iPaceCcuntfc & " paces were separated into " 6 iDocCount% & " documents.", 0, M D 
ocument Separtion Complete." 

Exit Sub 
errcrLoad : 

'reset everything back to original status 
IblCurrer.tPage. Caption = "" 
lblNumOf Pages .Caption = 
txtDocNameNumber . Text ~ 
txtDocNamePref ix . Text « "" 
cxdFileOpen . Enabled = False 



-109- 



BNSDOCID- <WO 951S092A2 I > 



WO 98/18092 



PCTYUS97/18935 



f rmAutQTi^r e - 2 

frmAutomate. TIFF- File = 



frmAutomate . TIFF. Rer 
Exit Sub 
End Sub 



kint = True 



Private Sub examine Page ( ) 
Dim sColorCountS 
Dim iQuadrant% 
Dim iWidthSection% 
Dim iHeightSection% 
Dim i?ixelCheck% 
Dim iBlackCount% 
Dim iWhiteCount% 
Dim iLargeX% 
Dim iLargeY% 
Dim iSmallX% 
Dim iSmallY* 

iWidthSection% « frmAutomate . TIFF. BitmapWidth / 8 
iHeightSection* - frmAutomate . TI FF. 3itmapHeight / 8 
frmAutomate .TIFF. Visible = True 
f rmAut ornate. TIFF. BitmapDC « True 
For iQuadrant% «= 1 To 4 
Select Case iQuadrant% 
Case 1 

iSmallX% 

iSmallY% 

iLargeX% 

iLargeY% 
Case 2 

iSmallX% 

iSmallY% 

iLargeX% 

iLargeY% 
Case 3 

iSmallX% 

iSmallY% 

iLargeX% 

iLargeY% 
Case A 

iSnallX% 

iSmallY% 

iLargeX% 

iLargeY% 
End Select 

For i?ixelCheck% « 1 To 1000 

iX% = Int ( (iLargeX% - iSmaliX% + 
iY% » Int ( (iLargeY% - iSmallY% + 
lColor& = GetPixel (TIFF. BitmapDC 
If lColori = 0 Then 

iBlackCount% « i3lackCount% 
Else 

iWhiteCount% = iWhiteCount% + 1 
End If 

Select Case iQuadrant% 
Case 1, 4 

If iWhiteCount% > 100 Then 

frmAutomate . TIFF. BitmapDC = False 
sValidDi viderS = 
Exit Sub 
End If 
Case 2, 3 

If iBlackCount* > 100 Ther. 

frmAutomate . TIFF . 3i tmapDC = False 
sValidDividerS *» """ 
Exit Sub 
End If 
End Select 
iBlackCount% - 0 



iWidthSection% * 1 
iHeightSection% * 1 
iWidthSection% * 3 
iHeightSection% * 3 

iWidthSection% * S 
iHeightSection% * 1 
iWidthSection% • 1 
iHeightSection% * 3 

iWidthSection% * 1 
iHeightSection% * 5 
iWidthSection% * 3 
iHeightSection% - 7 

iWidthSection% * 5 
iHeightSection% * 5 
iWiirhSection % * 7 
iHeightSection% * 7 



1) * Rnd + iSmallX%i 
1) * Rnd + iSmallYM 
iX%, iY%) 



+ 1 
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f rmAutomate - 3 

iWhiteCount% - 0 
Next iQuadrant* 
svaiidDivider* - M T M 
f rmAutomate . TIFF. BitmapDC - False 
End Sub 

Private Sub Form_Load( ) 

f rmAutomate . ScaleWidth « 600 
f rmAutomate . ScaleHeight - 450 

f rmAutomate .Top - ( Screen . Height - f rmAutomate . Height ) / 2 
f rmAutomate. Left - t Screen . Width - f rmAutomate . Width ) / 2 
lblCurrentPage .Caption « 
lblNumOf Pages .Caption - " ,f 
Randomize 
End Sub 

°rivate Sub imageDispiay t ) 

f rmAutomate. TIFF. FilePage « iCurrent Page% 

f rmAutomate . TIFF. File « f rmAutomate . cclFilename . filename 
f rmAutomate .TIFF. I.T.age Width - f rmAutomate . TI FF. Width 
f rmAutomate . TIFF. ImageHeight *= f rmAutomate . TI FF . Height 
f rmAutomate . TIFF. Repaint = True 
End Sub 

Private Sub pagesTotalt) 

f rmAutomate . TIFF. InfoPage « 

f rmAutomate .TIFF. InfoFile - 

iPageCount% - TIFF. InfoPage 
End Sub 

Private Sub txtDocNameNumber_Change ( ) 

cmdFileOpen. Enabled - True 
End Sub 

Private Sub writeTIFO 

f rmAutomate .TIFF. File Page - iCurrent Page% 
f rmAutomate .TIFF. SaveMulti = True 

f rmAutomate . TI FF. Save Format = LVB_FILE_CCITT_GROUP4 

f rmAutomate . TI FF . Save File = txtDocNaraePre: ix . Text & & iFileNumber% & M .tif" 

End Sub 



32767 

f rmAutomate . cdlFilename . filename 
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t rmAut ornate - 1 
VERSION* 5.00 

Begin VB.Form frmAutomate 
Appearance =* 
AutoRedraw - 
BackColor ** 
Caption =* 
ClientHeight ** 
ClientLef c 
CliencTop = 
ClientWidth 
BeginProperty Font 

Name 

Size 

Charset 

Weight 

Underline 

Italic 

Strikethrough 
EndPrcperty 
ForeColor = 
Icon - 
LinkTopic = 
MaxButton ~ 
PaietteMode 
ScaleHeight - 
ScaleMode ■ 
ScaleWidth 



0 • Flat 
-1 'True 
&HO080800O4 

"Automated Document Separator* 
6105 
1800 
720 
6225 

"MS Sans Serif" 
8.25 
0 

700 

0 'False 
0 'False 
0 'False 

&H80000008& 
(Icon) 
"Forml" 

0 'False 

1 'UseZOrder 
407 

3 * Pixel 
415 



Begin VB. FileListBox Filel 



Appearance 

BackColor 

ForeColor 

Height 

Left 

Tablndex 
Top 

Visible 
Width 



0 'Flat 
&H00808000& 
&H0OFFFFFF& 
5880 
4560 
8 

120 
0 

1455 



False 



End 

Begin VB.TextBox txtDocNamePref ix 



Appearance 
BackColor 
Heicht 
Left 

Tablndex 

Top 

Width 



0 'Flat 

&H00808000& 
235 

leoo 

5 

5400 
615 



End 

Begin VB.TextBox txtDocNameNumber 



Appearance 
BackColor 
Height 
Left 

Tablndex 
Top 
Wiat n 



0 'Flat 
&H00808000& 
285 
1800 
4 

5760 
615 



End 

Begin V3 . PictureBox cdlFilename 



Appearance 

BackColor 

ForeColor 

Height 

Left 

ScaleHeighr 

ScaleWidth 

Tablndex 

Top 

Width 



0 'Flat 
&HB0000005& 
&H8O0O0OO8& 
480 
0 

4 50 

1170 

9 

2400 
1200 



Znd 



3eain V3 . PictureBox TIFr 
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f rniAutomate 



Appearance 

BackColor 

ForeColor 

Height 

Left 

ScaleHeight 

ScaleWidth 

Tablndex 

Top 

Width 



0 /lat 

4H00COC0CO& 

&KS0OOUUU&& 

4575 

240 

4545 

4065 

1 

600 
4095 



End ^ 

Begin VB . CommandButton cmdFileOpen 

Aocearance - 0 'Flat 

Caption - "Open File 



Enabled 
Height 
Left 

Tablndex 

Top 

Width 



0 
375 
2640 

0 

5520 
1095 



False 



End 



Begin VB. Label lblDocNameNumber 



Appearance 
BackColor 
Caption 
ForeColor 
Height 
Left 

Tablndex 
Top 
Width 

End 

Begin VB. Label 
Appearance 
BackColor 
Caption 
ForeColor 
Height 
Left 

Tablndex 
Top 
Width 
End 

Begin VB. Label lblCurrent Page 



0 1 Flat 
&H00808000& 
"Start Number: 
&H8000000B& 
255 
480 
7 

5760 
1215 



IblDocNamePref ix 
0 'Flat 
&H00808000& 
"Prefix:" 
&H80000008& 
255 
1080 
6 

5400 
615 



Appearance 

BackColor 

ForeColor 

Height 

Left 

Tablndex 

Top 

Width 



0 'Flat 
&H00808000& 
&H80000008& 
255 
2400 
3 

120 
2175 



End 

Begin VB. Label Ibl NumOf Paaes 



Appearance 
BackColor 
ForeColor 
• Height 
Left 

Tablndex 

Top 

Width 



0 'Flat 
&H00808000& 
&H80000008& 
255 
120 
2 

120 
2175 



End 



^nd 
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CLAIMS 

WHAT IS CLAIMED IS: 

1. A method for interpreting a computer file including a plurality of pages, said method 
5 comprising: 

(a) selecting a portion of a page; 

(b) comparing said portion with a document separator template; and 

(c) identifying a predefined image in said computer file. 

2. The method of claim 1 wherein each page includes a plurality of pixel values and step (a) 
1 0 includes selecting a subset of the pixel values of a page. 

3. The method of claim 2 wherein step (b) includes comparing the pixel values of said subset 
with corresponding pixel values in said document separator template. 

4. The method of claim 3 wherein said document separator template includes a first area pixel 
of values and a second area of pixel values, wherein the first area pixel values comprise a different 

1 5 value than the second area pixel values. 

5. The method of claim 4 wherein step (c) includes determining whether the pixel values of 
said subset are substantially similar to the corresponding pixel values of said document separator 
template. 

6. The method of claim 5 further identifying a page in said computer file as a document 
20 separator page when said pixel values of said subset are substantially similar to the corresponding 

pixel values of said document separator template. 

7. A computer readable storage medium for storing an executable set of software instructions 
which, when inserted into a host computer system, is capable of controlling the operation of the 
host computer, said software instructions being operable to identify the existence of a predefined 

25 image in a computer file including a plurality of pages, said software instructions including: 
means for selecting a portion of a page; 

means for comparing said portion of a page with a document separator template; and 
means for identifying a predefined image in said computer file. 

8. The invention of claim 7 wherein each page includes a plurality of pixel values and said 
30 means for selecting a portion of a page includes a means for selecting a subset of the pixel values of 

said page. 

9. The invention of claim 8 wherein said means for comparing said portion of a page with a 
document separator template includes a means for comparing the pixel values of said subset with 
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corresponding pixel values in said document separator template. 

10. The invention of claim 9 wherein said document separator template includes a first area 
pixel values and a second area of pixel values, wherein the first area pixel values comprise a 
different value than the second area pixel values. 
5 11. The invention of claim 10 wherein said means for identifying a predefined image includes a 
means for determining whether the pixel values of said subset are substantially similar to the 
corresponding pixel values of said document separator template. 

12. The invention of claim 1 1 wherein said means for identifying a page in said computer file as 
a document separator page includes a means for identifying a page as a document separator page 

1 0 when said pixel values of said subset are substantially similar to the corresponding pixel values of 
said document separator template. 

13. A user-configurable document management system, comprising: 
a computer including a display and an input device; 

a scanner coupled to said computer; and 
15 a printer coupled to said computer; 

wherein said computer includes document management software including: 
an image viewer; 
a search engine; 
a briefing tool; 
20 a transcript viewer; and 

an installation module permitting a user to configure said software to include any 
desired image viewer, search engine, briefing tool, and transcript viewer. 

14. The document management system of claim 13 wherein said briefing tool is adapted to 
generate a window on said display that remains viewable in its entirety until terminated by user 

25 intervention. 

15. The document management system of claim 13 wherein said transcript viewer interprets 
transcript files in a variety of formats and automatically determines which format is associated each 
transcript file. 

16. The document management system of claim 15 wherein said transcript viewer further 
30 adapts each transcript file to be processed by said document management software. 

17. A method for installing software comprising a plurality of modules in a computer system, 
comprising: 

(a) recognizing the existence of installable modules; 
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(b) installing said installable modules. 
18. A method for generating a document database, comprising: 

(a) reading a look-up table; 

(b) scanning a document; and 

5 (c) storing said document in said document database at a location determined by said 

look-up table. 
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